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PREFACE 


This student workbook was written to assist the student in taking notes while attending the HP 3000 Application Design 
Training Course. Each of the pages is a copy of an overhead projection slide that the instructor will use in presenting the 
course material. You will find that by making generous notes on these pages, this workbook will be more useful as a reference 
after leaving the classroom. 


The course material recommended for each student is given below: 


Student Workbook ............ 0.0. ese eeees 22808-93001 
General Information Manual ............... 30000-90008 
V/3000 Reference Manual .................-. 32209-90001 
KSAM Reference Manual .................. 30000-90079 
IMAGE Reference Manual ................. 32215-90003 
QUERY Reference Manual ................. 30000-90042 
Reference Training Manual ................ 30000-90143 
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INTRODUCTION TO APPLICATION 
DESIGN ON THEHP 3000/1 | 


HP3000: | 


APPLICATION 
DESIGN 


notes: 
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application design 


notes: 


references: 


MODULES: 


| INTRODUCTION 

ll MPE OPERATING ENVIRONMENT 

Ill TRANSACTION PROCESSING OPTIONS 
IV DATA MANAGEMENT OPTIONS 

V SUMMARY 
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application design 


FOUR VIEWPOINTS 


A1-start. 
read fila... 
perform proc 





structure diagram 
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until proc10 
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application design 


M@ conversational interface to application 
m fast response to interactive requests 


@ ability to generate 1-time reports without 
programming 


@ separation from specific details of computer 
software 


anything else? 
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application design 


the | APPLICATION DESIGNER | wants: 


™ to understand and satisfy end user needs 


™ to understand the capabilities of the computer 
system in order to satisfy these 
needs 


to provide a design that insures 
- fast response 
- rapid access to information 
— high rate of transactions 


what else? 
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application design 


the APPLICATION PROGRAMMER wants: 


m to be able to translate the designer’s 
specifications into a working program 


m@ to understand how to use 
the computer system’s software 


™@ programming tools to help code, debug, 
and optimize application programs 


anything else? 
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application design 
the | COMPUTER SYSTEM | should provide: 


m@ hardware and software that are capable 
of supporting the given application 


™ support and training for both the 


designer and programmer to help 
implement a successful application 
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SOME HP3000 RESOURCES 


languages  < 
COBOL ee 
FORTRAN 








BASIC 
RPG I a ce . - 
SPL f/f 8 






disc 
storage 


terminal 


interface Man agement 


IMAGE 
KSAM 
file system 








files 
data bases 
virtual memory 








Operating System 
MPE - 

CPU 

memory 


security 








SUPPORT, TRAINING, & DOCUMENTATION 
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TRAINING for different users 


End Users A Guided Tour | 




















Designers GO Dt @ we are here 
| IMAGE 
Programmers Programmer’s Intro KSAM } Programming 


Vv/3000 


‘Administrators Console Operator System Manager | 
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DESIGN CONSIDERATIONS 
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m™ STRUCTURE Yet 


-whatitdoes°~ —°~ 2 
® ° ane of Sa 
- how it does it Se 


\ 
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@ IMPLEMENTATION ? a, . a 


- who uses it and how ae. ¢ 
- what restrictions are needed _ i)” 
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TYPICAL TERMINAL APPLICATION 


menu 


transactions 


How does this structure work on an HP3000? 
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notes: 


- Think of task in terms of "functions", 


- Chart these functions into a set of menu-driven 
transactions. 
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application design 
| Structure Chart 


® outlines HOW application does it 


example: good data 


diane CALL- 
MAINOOO1 FUNCTION 


VALIDATE- OPEN- 
SCREEN ALL-FILES 
&, % % 
£ : 4 
TIE v 2 
GET- DISPLAY- ACCEPT- CHECK- 
SCREEN SCREEN DATA SECURITY 


qd 
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notes: 


- “Decompose" data as well as the code. 


references: 
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application design 


DATA DICTIONARY 


w based on data flow in structure chart 


- list of each piece of data for each function 
(use structure chart as checklist) 


- note characteristics of data items 
— duplicated? 
— sorted? 
- used by more than one function? 


i: 


notes: 


- Prepare for data management decisions from the start. 
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Design for Maintenance 


@ who will maintain your programs? 


usually someone else, so make it easy to read 
and simple to follow 


M@ a program that is easy to maintain is usually easy 
to use 
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application design 


understanding the END USER 


questions to ask: 
@ who are they? 


@ what do they want? 


wee LO Benoa 


e where do they want it? §° 
@ in what form? 


@ when? 


o and how fast? 


G HEWLETT 


PACKARD 





notes: 


- If you can explain your design to the end-user in terms 
he/she understands, the design has a good change of workina, 
and of being easy to maintain. 
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WORKSESSION I-1 


| GA) ercKano 
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notes: 
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Worksession [-1 


The purpose of this worksession is to characterize your application. There is no correct answer, but 
the more thorough you can be at this stage, the more useful the course will be. 


1. 


Have you settled on a programming language or languages in which to code your application? 


If yes, which? 





Characterize the structure of the application: 


A. 


Characterize your end-user: 


A. 





Summarize, in one sentence if possible, the purpose of your application. — ¢ | 





Briefly list the main functions of y your application—for example: maintain bill of 
materials, maintain vendor file, etc. 





Connect the functions you listed above into a menu tree (as in slide I-10). 


Take one of the functions from the menu tree (or choose a subfunction) and determine the 
flow of data within this function. Show this in any format—very roughly with circles and 
arrows or, more formally, as a structure chart. 


Who will enter data? 
Where? 
When? 





How fast must response time be? 


Is the flow even? __i _____ If not, what are the peak times? 
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Worksession I-1 (cont.) 


Ce 
Who will modify data? CM Dee 
Where? t 
When? 


How frequently? 











How up-to-date must modifications be? within minutes? hourly? daily? weekly? 
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Who will retrieve the data? ——_____ 


How often? Ct tt | 






cy 
What kinds of reports are needed? ——_____—_ 
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Do they want unscheduled reports? ————_—___________—______—— 


4. List your security, accounting, and recovery needs: 


A. 


What functions are restricted? ———___-_EHEEEE 
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List any sensitive items: —————_____EE__ 
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Worksession I-1 (cont.) 


D. How important is recovery? 


What transactions must be recovered in case of a crash? 
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DESIGN TRADEOFFS 






=. high-level tools \ | 
easy program development 
{maximum capability 


(7 response time \ 


| / system performance \_ 


J transaction throughput}, 
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notes: 


~ Generally, the easier to use, the harder to implement. 
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SCIENCE 
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notes: 


-~ If designing applications were a science, we could write 
a program to do it. 
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SECTION 


PE OPERATING ENVIRONMENT 
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MPE OPERATING ENVIRONMENT 


m@ Architecture Overview 


m@ The Process 
- code segments 
- data segments 


™ Process Generation 


@ Multiprogramming 
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notes: 


referenceS: General Information Manual 
System Reference Manual 
MPE Commands Reference Manual 
MPE Intrinsics Reference Manual 
MPE Pocket Guide 





ARCHITECTURE OVERVIEW 


HARDWARE | SOFTWARE 





mM Stack Architecture 
a angulgortty or Code & Data + eas. 
| The Santos 
OE 
W-2 
notes: 


- HP3000 architecture combines hardware and software. iaeees eee 
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~- Hardware eSntrols the transfers between ata Chace PCH entrar 
processor. 


- Micro-coded instructions in the central processor (firmware), 
reduce software needs, are super fast. 
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architecture overview 
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HP3000 STACK ARCHITECTURE ,- - 
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STACK MACHINE REGISTER MACHINE 
® processing in stack e processing in general registers 


e code and data always separate ¢ may combine code with data 
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v= No general registers are needed in an HP3000. 





-.Code and data are separate. Cree tee 


= } 
- Both are features that Save memory space. ae re 


architecture overview 


SHARED CODE SAVES MEMORY SPACE 





code/data separate VS code/data together 


notes: 
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VIRTUAL (DISC) MEMORY FOR STORAGE 


(secondary 
virtual) 





ee pee 


(configurable | 
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MAIN (semiconductor) 
MEMORY 
VIRTUAL (disc) MEMORY 
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- To the user, there is no difference between main and virtual 
memory. 


-~ To the system, disc I/O is needed to transfer code from virtual 
to main memory, and transfer data to and from main memory. 


- Note: only the virtual memory used for data is "configured" 
into the system. The virtual memory for code is simply the 
program file that results from preparing code for execution. 
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architecture overview 


MAIN MEMORY FOR EXECUTION 
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MAIN MEMORY Ls ee 
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- In order to execute, a program's code and data must both be 
in main memory. This is managed by MPE. 





- Note: only the code and data actually required for immediate 
execution must be in main memory; some code segments may 
remain on disc. 
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architecture overview 


WORKSESSION Il-1 
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notes: 


references: 


Worksession Il-1 (architecture) 


reemet—en 


The HP 3000 is a stack machine. True or false? | 


One characteristic ofa stack machine is that code and data are separate. 
True or false? 


Describe one advantage of separate code and data? 


en pe 





ees 












Give at least one difference between main memory and virtual memory. 





In order for a program to execute, all of its code and data must be in main memory. 
True or false? 
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THE PROCESS 


m@ General Characteristics 
= Components 


m Code Segments — Overview 
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architecture overview 


PROCESS DEFINITION 


“A process is 
the unique execution of a program 
by a particular user 


at a particular time.” 


__ AE 
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the process 


PROCESS CHARACTERISTICS 


code data 
as aa stack | 


process A 








data | code 
stack alt am 
process B 
code: non-modifiable data: absolutely private 
shared -_- separate from code 
re-entrant modifiable _ 
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notes: 


- Code cannot change during process execution (non-modifiable), 
is returned intact after interruption (re-entrant), and can be 
shared by many users. 


~ Data cannot be seen or changed by other users executing the 
same code (absolutely private), is stored separately from 
code, and canybe modified by any users sharing the code. 
Vv 
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the process 


PROCESS COMPONENTS 


An executing process consists of: 
e 1 or more code segments 
e 1 data segment (the ‘“stack”) 


|__| 


code | 
“segments 


[ 


PROCESS 
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notes: 


- Note: in addition to code segments and data stack, the 
executing process may also need "extra data segments". If so, 
these will be in main memory too. (Extra data segments are 


discussed later in this module.) Be 2 
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WORKSESSION II-2 
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Worksession II-2 (the process) . 


Ne \ 


If you execute the same program twice, does this result in one process or two processes? 


FAD 





If you and another user each execute the same program, does this result in one or two 
processes? 





je. 
Shared code can be modified. True or false? bAcs.. 
Explain your answer. 
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Private data can be modified. True or false? oe ae 
Explain your answer. 
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the process 


CHARACTERISTICS OF CODE SEGMENTS 


variable lengths 
managed by system 


naturally relocatable 


defined by user 
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- Code segment definition: Any group of instructions that the 
programmer decides should be kept together as a unit. 
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the process 


Code segments are variable length 


® optimal length depends on: 


/* amount of memory 


ae to - frequency of use 
program } 5 code 


segments = number of segments 
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notes: 


~ Maximum length = 16K words, _ “a A 
es, cage pee Bison iS Me ne yo 


- Most MPE segments are 5K or less; “try for user aaa segments | 
in the same size range. were “ees | 
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the process 


Code segments are managed by the system 








program file 





A5 
perform B2.. . 





virtual memory 


main memory 


CA mackano 





H-15 


notes: 


- In this example, code segment 1, which is currently executing, | 
references code in segment 4 (not in memory). At that point, 
code segment 4 is copied into main memory so execution can 
continue. This is done automatically by MPE. --.— 


| | 
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the process 


Code segments are naturally relocatable 









beginning of code > 


current instruction ~ 


limit of code ___,. 


MAIN MEMORY PROGRAM FILE 
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notes: 


- Program registers in the CPU keep track of the location of any 
executing code segment. (These registers are PB, P and PL.) 


- Code can be placed anywhere in memory simply by updating 
registers. 


~ All addresses in code are PB-relative. 
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the process 


Code segments are defined by user 





Code defines segment boundaries* 
therefore, programmer controls: 











program-ID 
sample-program 
segment: 


- the number of code segments 
- the size of each segment 


start section 10 


- which code goes into which 


init section 20 segment 





term section 20 
main section 30 


err-proc section 40 


©e © ® °@ 


* except RPG and APL 
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1-17 
notes: 

- Maximum number of code segments per program is 63. 

- Note: code segments defined in program can be changed using 

a “segmenter" program. 

References: 

Check language reference manuals (COBOL, COBOL II, RPG, SPL, 

BASIC Compiler) for details on segmenting code. 
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WORKSESSION II-3 
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Worksession Il-3 (code segments) 


What is one advantage of variable-length code segments? 
CALS oA. yw Ki 28 


a. 












py 
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A. Is there a maximum code segment size? L248 





B. Is there a maximum mumbe r of code segments per program? era 
If so, what is it? (<= 





Suppose code in one segment causes a transfer to code 1 in another segment; what must your 
program do to manage this transfer? 


Poon 











Does your program need to know the address in main memory of the currently executing code 
segment? Explain your answer. | 
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CODE SEGMENT DESIGN 


How should code be segmented? 
m@ Concept of Working Set 
@ Concept of Locality 


m Size Considerations 
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segment design 


WORKING SET — 


e The smallest set of segments that must be in main 
memory for a program to work efficiently. 


Start of program 





End of program 


LM 


+, 


‘se 


initialization 
segments 


computation/ 
data analysis report generation 
segments | segments 
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notes: 


~ The working set for any executing program is "dynamic". 
It changes continually throughout the life of the program. 
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segment design 
WORKING SET (2) 


@ The entire working set should fit in main memory for 
efficient processing 


MAIN. _- VIRTUAL MEMORY MAIN 
MEMORY MEMORY 





good | poor 


working set fits in memory | working set does not fit 
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notes: 


- Note: the data stack is NOT part of the working set; the 
stack must always be in memory when a program executes. 


- In this example, the three code segments currently in the 


working set (shaded boxes) all fit in main memory on the 
left - only two segments fit on the right. 
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segment design 
WORKING SET (3) 


How can you make sure the working set fits in main 
memory? 


A) You can add more memory 
OR 

B) You can run jewel progran at a time 
OR 


C) You can structure your program to achieve 
better code locality — and a smaller working set 
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~ Which of these solutions makes sense for your application? 
A can be expensive 
B limits the application 
C should be attempted 
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segment design 


CODE LOCALITY 


@ Good locality on an HP3000 means: 


Control stays in one segment for as long as possible — 
when it leaves a segment, it stays out as long as 


possible. 


@ Poor locality means: 
Control branches between code segments frequently — 
puts more code in working set. 


segment 


segment 
A B 


@ If transfers between A and B are frequent, put that code in 





_ the same segment. 
| Cd oackano 
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segment design 


Good locality Poor locality 





more INTERNAL calls more EXTERNAL calls 
than external calls than internal calis 
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notes: 


- This is simply another way of looking at locality. 
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segment design 


EXAMPLE: suppose a program generates displays using 3 display formats 


Main procedure 
e opens file 
> Serene eee format 







\ 
procedures B, C, D 
get records 


rocedures E, F, G 
ormat display screen 





Pat earns 


ee] 


How would you segment these program blocks? 
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notes: 
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segment design 


SOLUTION: 
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notes: 


- This solution keeps code from crossing segment boundaries 
each time a record is read and formatted. 


~ Segments are not too large; there is no redundant code. 
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segment design 


FIRST rule for segmenting code: 


1. Stay in segment as long as possible, and stay out as long as possible 


data user 


segment code 
(stack) segments 





VIRTUAL MEMORY 
_ MAIN MEMORY 


| PACKARD 
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notes: 


- Every time a program crosses a segment boundary, it increases 
the chance that code must be transferred from disc. 


- When a referenced segment must be transferred from disc, the 
program suspends. 
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segment design 


SECOND rule for segmenting code: 


2. Make segments the same size — easier for MPE to find space 


example: 






MAIN MEMORY VIRTUAL MEMORY 


@ segment C can overlay segment B 
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notes: 
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segment design 


THIRD rule for segmenting code: 


3. Keep segments small, but not too small 
— remember the first rule 


many small segments vs fewer large segments 
with good locality 


cooooo 6 oCeo 





working set working set 
@ small segments MAY cause e larger segments MAY reduce 
excessive inter-segment transfers inter-segment transfers 
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notes: 


- Remember: the maximum number of segments per program is 63. 


-~ To help find space in memory, segments should be 5k words 
or less. 
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segment design 


FOURTH rule for segmenting code: 


4. Separate infrequently used code from code that is executed 
most often 





| initialization main error 
processing routines 
routines 
(A) 
termination 
working set main | . 
(start/end) processing (may never 


be used) 


[routines 


(B) 





working set 
(main processing) 
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notes: 


- A routine can be large if it is seldom (or never) executed. 


- Such code should always be separated from code that is 
executed frequently. 


references: 





segment design 


FINAL rule for segmenting 
5. Code in segmentable program units 


Seale 


notes: 


Cd packano 
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~- Code is prepared into segmentable blocks, called RBMs 
(Relocatable Binary Modules). 


- Programmer controls which code is placed into which RBM. 


references: 





segment design 


COMPILERS AND SEGMENTATION 


compiler defaults 


COBOL ’68 — 2 segments (1 for Initialization) 
(1 for Main Program) 


COBOL il — 1 segment (Initialization + Main Program) 
FORTRAN — _ 1 segment (Main Program) 
BASIC — 1 segment (Program is smallest unit) 


RPG — compiler divides program into 4K segments (user can 
specify 1K, 2K, or 3K) 


SPL — 1 segment (Main Program) 


APL — no segmentation (compilation generates data only) 





user control: 


COBOL — section-name priority-number 

- FORTRAN 
SPL — $CONTROL SEGMENT = segment-name 
BASIC | 


Co packano 
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notes: 


- Note differences between compilers. 


- Check manuals for specific details. 


references: 





segment design 


How COBOL Il determines RBMs and Segments 


Compiler Segmenter 


INITIALIZATION 
A100-START 10 


Ci00-INIT 15 


ERRORSUB 


E100MAIN20 


CIOOINIT1S 
F100GET1S 
INITIALIZATION 


E100-MAIN 20 


F100-GET 15 


ERRORSUB © 


6 RBMs 4 Segments 


A100START10 
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notes: 


references: 


ete ES TS SS SD SESE OE TS EL EE EEE 


segment design 


WORKSESSION II-4 


©} eackanc 


notes: 


references: 


Worksession Il-4 (segment design) 


Define a working set. 





How does code locality affect performance on an HP 3000? 


Give at least three rules for effective segmentation. 


Segment the following sample program by marking the program units that you would put in 
the same segments. (Each box represents a program unit; you can mark them any way you 
want just so long as it is clear which units go together.) _ —_ 


ee ia. 


a = 





= im 


Ze rae os 
a 


TTA ere 


MAIN calls INIT, PROC. TERM once each. 
INIT calls INITA, INITB once each; each is small and executes quickly. 
PROC and PROCA work together to do most of the processing. 

TERM performs termination procedures; it is small and executes quickly. 


ERROR may be called by any other procedure in case of error. 


II-34a 





DATA SEGMENTS | 


Stack 
e Layout 
e Management 


Extra Data Segments 


© packano 
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notes: 


references: 





data segments 
WHAT IS A STACK? 
m 1 word of data stacked on top of another 
m LIFO - last item added to top is the first item removed 
~<— bottom of stack 
expandable 


down 
a base 


expandable 
up 


~— top of stack 
stack 
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notes: 


- Note: HP3000 data stack is always shown "top down". 


references: 





data stack 
HP3000 DATA STACK 


™@ 1 per process a ae ) 
a variable length Lg ey Be 


LAs, 











e ueeet anced data | area 
DB-relative (negative) 
e global data 
DB-relative (positive) i 
total stack 2 , he | | a ; 
size = DL thru Z } | 2. | ie : 
e local data for subroutine 
Q-relative (positive/negative) 
® top-of-stack (TOS) 
S-relative (negative) 
| CA PACKARD 





| 
~) 
WW 


data limit, the Teuese adarase: satiable to programmer. 


~ DB = data base, the base for all stack expansion whether up res 
or down. | Oe eee 





- Q = dynamic base for the current subroutine(s). ah pera 


- S = stack top (top of stack), the area where code is executed; 
as new values are moved onto stack, S moves toward 2 


~- Z = stack limit, the very top of the stack (except for a a 
overflow area managed by system). / 





r\ i /) ss “i « j : 

i e s ¢ ah $ J BA bet Mery y SL Staey BP pase ees ene we 

a ot bared * ENE e Dy 5 ot i i ak Ba hg ahi cb tote ee aad Nt be “ a, af, is 

( ) sonra x > Nathes™ ié ial race q oa Xo ss re ‘ Ae iv ! . 4 ‘4 a ek 
oe . A 


references: 
a ae 


ened 








data stack 


_ DATA STACK - ANOTHER VIEW 


DL 


INITIAL stack 
(fixed size) 





™ the INITIAL stack must be as large as your global data 





WA eackano 
N38 | 


notes: 


- Before any execution, Q and S are at the same location. 


- As code is executed, the stack expands dynamically up to the 
limit set by user. 





| 4 
\ } 
8 \ Ay 
y oh ys i we 
. a) Epa : Ps ; “ 
a : Asi i &é ‘ oe + / : 
om, sermaitn mew E a dik 
\ AN ee, ! : mY ' 
ap 3 | | eee 
ae ,) . / , SL tiyaiae 33 _*t es 
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references: 





data stack 


STACK MANAGEMENT 


What can a program do to manage stack size? 


Increase stack limits (MAXDATA or STACK) 


Shrink the stack dynamically (ZSIZE or DLSIZE) 


oof — we Se 
Ce Aer cer eC eS ‘ i 


Design to keep global area small }-~ ~~~" 


£ 


Segment code to reduce stack size 


d 

/ y 
a a fe es BR oe 
ae ee f A 4 Ss fp Seeisapaltle i a ae 


a Net : “ es =i fo 
oP Be St / ses FE cere ie « = sf i 
LA / ae 1 ‘ ee oy ie 
POLO Po ee aa Paar ‘ 
ia ie nn: ane a td 


” 


i 
2. 4 Ae 


‘A “~ 
ame) vet 


meee ee denads 
Cal Ke PACKARD 


Note 
i 
AN 








er casks oh 
el Ot A 









f 





£5 oth of Ee ee 


. - yh dette A mate / 2 
references: . wae 


i 
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data stack 
STACK LIMITS 


m stack size (DL-Z) estimated by system 


@ user can increase this estimated size: 


e STACK increase stack size all at once 


e MAXDATA = increases stack size in 1K 
increments 


: HEWLETT 
(SA EPSP SE IS ELI TE a DT ST TT ET ILLES | @ PACKARD 
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notes: 


references: 


data stack 


example: de 


BGT Cae 


STACK = 10000 -”~ 





MAIN VIRTUAL 


e DB to Z allocated at once in both MAIN and VIRTUAL MEMORY 


C4 eackano 
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notes: 


- Note: the STACK command does not expand DL-DB area. 


- Can be wasteful of memory since main memory space allocated 
from start. 


references: 





data stack 


example: 
MAXDATA = 10000 





MAIN VIRTUAL 


® maximum stack (DL to Z) allocated in VIRTUAL MEMORY 


@ expanded in MAIN MEMORY as needed (1K increments) 
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notes: 


- MAXDATA saves main memory. 


- Costs in disc I/O needed for incremental expansion. 


references: 





data stack 


Use MAXDATA —- 


e if you need to expand DL — DB area 


e if you run out of stack space during execution 


NOTE: Neither MAXDATA nor STACK will shrink stack automatically 


Ce} eackano 
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notes: 


- Use MAXDATA if you get a "stack overflow" message when you 
execute program. 


references: 





data stack 
USE STACK = if you need a large stack immediately 


example: 
e INIT segment requires 20,000 words 
e rest of program requires only 10,000 words 


DL | 
used by zy 
rest of 10,000 
program S “y. 
Z 


CD eackann 


STACK = 20,000 
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notes: 


- STACK saves disc I/O required to expand stack with MAXDATA - 
use it if you know you will need the extra stack space 
immediately. 


~- You can shrink stack when space no longer needed. 


references: 





data stack 


EXAMPLE OF STACK GROWTH (1) 


assume: 
program modules shown below: 





_ Ae 
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notes: 


~ In this example, assume MAXDATA is specified to allow stack 
to expand past size estimated by system. 


~ Each increase means swap to and from disc. 


references: 





data stack 






initially, stack local data is 





contains only added as each 
global data procedure is 
called 
stack expands 
past default estimate 
CAD eackano 
1-46 
notes: 


- The first location of Z is the system-determined stack limit. 


- After procedure B is called, 2 is moved past this limit in 


1K increments. 2Z can expand up to the MAXDATA limit, but 
no further. 


references: 


EXAMPLE OF STACK GROWTH (3) 








data stack 


USE ZSIZE TO SHRINK STACK 


example: 





shrink 
stack 
(ZSIZE) 
usual stack back to 
size usual size 
8,2 
maximum 
expansion 


Kir HEWLETT 


PACKARD 





notes: 


- It is good practice to shrink the stack after the program 
has finished with procedures that expand the stack past 
its normal size. 


- See appendix A for sample procedures to determine relative 
location of Z (usual stack size) and then shrink the stack 
back to this size. 


- These procedures can also be used to expand stack 
programmatically. Similar procedures can manage DL-DB area. 


references: 





data stack 


DESIGN TO KEEP GLOBAL AREA SMALL 


dynamic area 


fixed - no direct user control 


dynamic area 








(Ad mackano 
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notes: 


- Use global area for: . 
Main program data 
data common to more than one procedure 
data maintained by a procedure between calls 


- Place constant data (such as error messages, screen displays) 
in code segment. 


- For COBOL programs, global area contains Working Storage for 
main program plus some other general purpose data. It also 
contains data for subprograms unless they are compiled with 
DYNAMIC option (more on dynamic subprograms in the language 
unit of Module III). : 


references: 





data stack 


SEGMENT CODE TO REDUCE STACK SIZE 


problem: restructure this program to reduce stack size 





m largest stack requirement when (A) calls (Cc) 


C9 eackano 
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notes: 


- Numbers in parentheses are stack requirements in words. 


~- When MAIN calls A and A calls C, the total words needed=1700. 


references: 





data stack 


solution: break largest procedure into subprocedures 
that are not in direct line 





CO} eackano 





11-51 


notes: 


- In this solution, the largest stack requirement is 1100 words. 


- But, keep the other factors in mind when segmenting —- don't 
reduce the stack size only to cause more transfers between 


code segments. 


references: 


data segments 


WORKSESSION II-5 


HEWLETT 
Kz PACKARD 
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notes: 


references: 


Worksession Il-5 (data stack) 


- ft 
The data stack can be shared by more than one process. True or false? . 4 


Assume a program with one called procedure that is currently executing. Label the stack 


diagram to show: 
aie 


bottom limit—— 


top limit 

top-of-stack— 
start of local data = — 
start of global data” 






Using your stack drawing, shade (or otherwise mark) the areas whose size can be managed by 
the user. 


Describe briefly three methods for the programmer to manage stack size. 





A. Suppose your application calls procedure “X” that doubles the usual size of the stack, “X” 
is called once only, and the call is neither at the beginning nor end of execution. Is this a 
situation where you could use ZSIZE effectively? Explain your answer. 





B. Suppose this single very large procedure “X” is the first procedure called by your program, 
and the default stuck size is not sufficient. Would you use STACK or MAXDATA to 

Are there any drawhacks/to your, choice? | 

Pe i}  # 


; ir re 
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Worksession Il-5 (cont.) © 


C. Suppose “X” uses the DL-DB area of the stack; would you use STACK or MAXDATA to 
expand your stack size? Are there any ee this choice? 


» 
ia = ES, 
fine € Le 

















How does putting error messages in a code segment help keep your stack small? 


ee 
et y: , i m wit ay ve a) i : F : ub Vike “ay tte 
x oe aA Pen ce hath CE lM AP i & ee at Ntogd : . i aon) Fy 404 i € Ay 
a ‘ t . in 4 
he ws, \ ’ Ff ra 
fe i ‘ t } wo goFt Sy . 
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EXTRA DATA SEGMENTS 


-@ What are they? 
e Why use them? : 


e Limitations 


© eackano 
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notes: 


references: 





extra data segments 


WHAT IS AN EXTRA DATA SEGMENT? 


ma block of unstructured, uninitialized memory 





eee | 
_— 
ee 
eee 
ae 
ee ee 
CE 
data stack extra data segment 
- structured VS - linear 
- private - private or sharable 
- 1 per process - up to 255 per process 
11-54 
notes: 


-~ Extra data segments must be managed by the application. 


gS 
= 


ett. 





references: 





extra data segments 


WHY USE THEM? 


™ to provide LINEAR 
unstructured storage 


- large arrays | oa 


- table look-up 


@ to provide GLOBAL 
storage for procedures 


- saves data after 
procedure exits 


- available for other 
procedures 





stack 


_ CAs: 





11-55 


notes: 


- Some other uses: 
to decrease stack size 


to share data between related processes (processes in same 
family) 


- Note: the file system uses extra data segments extensively © 
for data buffers. 


references: 





extra data segments 


WHAT ARE THEIR LIMITATIONS? 


require special capability and user management 


user program must: _ 
- create and delete any extra data segments 
- move data from XDS to stack, and from stack to XDS 


m@ XDS must be in main memory when accessed 
(together with code and user stack) 


™ use resources — disc I/O, memory, CPU time 





i HEWLETT 
: - . | QD PACKARD 
1-56 
notes: : 
1%, ey ‘ ce) 
nn fe J x rm. " 
% wo is aS / \ 
Ve y oe 
oe) J ma PAY 
\ | oh 


references: 


ne een 


extra data segments 


WORKSESSION II-6 
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notes: 


references: 


Worksession Il-6 (extra data segments) 


Give at least 2 differences between the data stack and an extra data segment: 








eee errr renner gnc EE CE TL eee 
emesis gna re RG CCD SS ETAL A CEC LE SS TD A a 


A 


Which of the following data storage needs can be solved by using extra data segments? 


/ 


7 A. OA program needs storage for an array that is too large for the data stack. 


B. A program needs an area to hold local data from a procedure after the procedure has 
exited. 


Cj A program needs a storage area for data to be passed to another program in the same 
“process tree. 


II-57a 





PROCESS GENERATION 


@ Life Cycle of Process 


m Code Libraries 


(A eackano 
11-58 | 


notes: 


references: 





process generation 


-“COMPILE-LOAD-GO” 


What does HP3000 do? 


standard terms: 
HP3000 terms: [compile | 





(Ad eackano 
11-59 | 


notes: 


- Compile stage common to most systems; it produces object 
code from source code. 


- Loading in HP3000 has two stages: 
PREP resolves some externals, links code segments 


RUN (in first phase) resolves remaining externals, sets 
up stack 


- RUN (in second t-hase) executes program. 


references: 





process generation 


COMPILE 


source 
code 





Text file 
User Subprogram 
Library file 


™@ segments planned — but not final 


CD eackano 
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notes: 


- This stage uses a compiler program (different compilers for 
each language). 


- Source code in text file compiled into "Relocatable Binary 
Modules" in USL file. 


- Stack information kept in USL file with RBMs. 
- RBM is basic building block; one or more may be combined 


into code segment, but RBM cannot be split into two or more 
segments. . 


references: 





process generation 


PREPARE 






User Subprogram 


Library file Program file 


Relocatable Library file 


@ initial stack, code segments linked in Program file 


CD eackano 
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notes: 


- This stage uses the Segmenter program. 

- Sets up final code segments in program file. The segments 
are iinked through an STT (Segment Transfer Table) associated 
with each code segment in program file. 


- Sets up initial stack (global stack data) in program file. 


- Resolves externals from "Relocatable Library" and builds an 
RL segment in program file. | 


references: 





process generation 





system disc 


RUN (1) 
ee 
t 
Cares ae > 
mee [DL |) |) 
ne 
“nN 


Da en a ce ee ed 


VIRTUAL MEMORY 


oe ee ee ne en ee ee 


e first phase links program units 
@ not yet a process 


'® HEWLETT 


PACKARD 
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notes: 


- RUN, in this stage, uses the Loader program. 
- Allocates space for stack on system disc. 


~ Completes linkage for code segments in system tables. 


references: 





process generation 





RUN (2) 
pS SS 7 poe Sa ae 1 
: Ee | | | 
| | | 

| [st te | | 

| | | 

| ig “¥ | | process | 

| program | | a ; 

' file i | aa rare tae - 

| MAIN MEMORY 

ee eee, Se etn al 

VIRTUAL MEMORY 
creates and executes process 
es, cr 
11-63 ; 
notes: 


- Finally, RUN creates the process, making an entry for the 
process in system tables. 


- Finds space in main memory for code and data. 


- Executes the process. 





references: SS 





process generation 


STREAM capability 
— control batch job execution from terminal 


ar | batch job “XYZ” 






:stream xyz 
C8job xyz 
trun abe 







crun def 


1eoj 





interactive terminal 


@ continues with other functions 





e execution sequence set 
in stream file 


@ no operator intervention 


Co} eackano 
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notes: 


- Compiling can take time - so use STREAM for long compilations. 


~- Also, use STREAM to run sequences of programs. 


- Allows you to perform other functions while long jobs 
execute in batch. 


-~ Resolves externals from Segmented Library. 


references: 


a eee eee ee a eee Re ee ee ee 
process generation 
ALLOCATE PROGRAM 


m when one program used frequently 


e all externals resolved 


program 
file a | @ ready to run 


f__— e only needs: 
st tile memory space 
disc space for stack 





allocated program 


Kin HEWLETT 


PACKARD 





1-65 


notes: 


~ Allocate uses resources, so don't allocate many programs. 


- This is particularly useful, to save some RUN overhead, when 
one program is run frequently. 
\ 


a 


Ney 
; ae 7 a ‘ f ‘ ) 
- VA . ‘ K e 


references: 





SAMPLE PROGRAM 


problem: program to retrieve order information by order 
number 
error 
subprogram 






main 
process 


Q HEWLETT 
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notes: 


- See appendix A for source code listing of this sample program. 


references: 





sample program 


Flow of MAIN process (simplified) 


READ terminal 
FIND | 


GET 
ORDER-INFO 















~~——__—_—___——- order data 


Kz HEWLETT 


PACKARD 








PRINT 
ORDER-INFO | 
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notes: 


references: 





sample program 


How Program is Segmented 


A100-START - Initialize 
perform MAIN until done; 1st segment 
terminate 


C100-INIT open data base 
forms file 
terminal 


D100-TERM close data base 2nd segment 
| forms file 
terminal 


B100-EXIT exit 


- E100-MAIN read screen (order #) 
find order in data base 
get order information 
print information 


3rd segment 


error subprogram error messages 4th segment 


Cie HEWLETT 


PACKARD 
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notes: 


- Look for RBM boundaries in code. 
- Are these the same as the segment boundaries? 


- Look at PMAP produced by segmenter (PREP stage) for final 
segment boundaries. 


references: 





sample program 


DYNAMIC ERROR SUBPROGRAM 


™@ puts error messages in local area of stack 


m reduces global stack size 


Cd eackano 
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notes: 


- A separate, dynamic code segment contains all error messages. 
This saves permanent (global) stack space. 


references: 





sample program 


STREAM FILE 


m allows concurrent processing during compile and 
prep | 


' JOB MGR. DESIGN 

'PURGE PDEMO1P 

'PURGE UDEMO1U 

'FILE CoBT eX 1 apenas Ss) souree file 
‘FILE COBUSLSUDEMO1U | USL file 
‘FILE COBLIST=$NULL 

'RUN COBOLII.PUB.SYS;PARM=S 

'F ILE COBTEXT=ERRORSUB 

'RUN COBOLII.PUB.SYS;PARM=5 

'PREP UDEMO1U, PDEMO1P;MAXDATA=11000;PMAP 


'SAVE |PDEMO1P 
'EOJ —— program file 


wen 





11-70 


notes: 


- Identify the source file, USL file, program file. 


references: MPE Commands Reference Manual 


process generation 


DEMONSTRATION 
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notes: 


1. Log on 
2. Run "PDEMO1LP" (the program file) 


3. Enter one of the following 8-digit order numbers: 


12340010 
12340015 
12340020 
12340025 
12340030 
12340035 
12340040 
12340045 
12340050 
12340055 


references: 





LIBRARIES | 


Mm using code libraries 
RL — Relocatable Library 
SL — Segmented Library 


@ all libraries are created and managed by the 
segmenter 


HEWLETT 
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notes: 


references: 





using libraries 


AN OVERVIEW 


Compile Prepare Run 
Bence Re 
Source Program 
| [iar] — Prog —> 
me (sc) f process 


m RLs part of program file 


m SLs part of process 


HEWLETT 
5 gPRSP TT SE EE I EE AE | @ PACKARD 


I-73 


notes: 


- Each RL is physically part of the program file that 
references it. 


- An SL is simply "linked" to the executing process that 
references it; that is, it is brought into memory and 
linkages established to it. 


references: 





using libraries 


RELOCATABLE LIBRARY 


m@ linked at PREP time 







USL file code segments 


(compiled program) 
RL segment 


program file 


RL file 
(contains all RL modules) 


CA eackano 
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notes: 


~ A Relocatable Library file is made up of compiled units (RBMs) 
just like the USL file. These units are not yet segmented. 


- The PREP command calls the segmenter to join RL units to 
program file. 


- Only the RL units referenced by the program are copied to the 
program file. All the RL units are placed in 1 segment. 


references: 





using libraries 
use RLs 


m@ for routines private to different programs 
@ for small routines 
@ for routines that seldom change 


prog A 
RLs 
— ——_—~) total 
63 
segments 
including 
ne 


CD eackano 
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notes: 


~ There is a copy of the RL in every program that references 
that RL. 


- When an RL is changed, the program file must be re-prepared. 


- RLs are very useful during program development to keep 
different versions of code. PREP whichever RL you want 
into the program file for testing. 


references: 





using libraries 


SEGMENTED LIBRARY 


@ linked at RUN time i 


SL file 
D 
A 
T 
A 
Code process 


Segments 


~ ” 


me « oe q 


initial stack 





Program file System disc 


CAI eackanc 
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e : Fe Fatt 
n otes can i a a ‘ 4 
a yt iene { t 
s [Meee Oe ¢ 
Net 


- SLs, unlike RLs, are already segments. 


- There are three parts to the file of Segmented Library 
routines. The system SL is checked automatically for any 
referenced routines at run time; you must specifically 
request RUN to look for account and group SL's. (A lot 
of system code used by applications is kept in the 
system SL.) 


- SLs cannot modify data in the initial global stack 


because that part of the stack is already established in 
each program file when the SLs are linked to the program. 


references: 





using libraries | 
_use SLs 
m@ for routines common to many programs 
@ for routines that may change 


for large routines 


max 
191 
segments 
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notes: 


- SLs can be modified without affecting the program file. 


- Only one copy of each SL is needed, however many programs 
reference it. | 


- Each SL requires an entry in the CST (code segment table) 
which can have a maximum of 191 entries. 


references: 





_ using libraries 


WORKSESSION II-7_ 


11-78 


notes: 


references: 


1. 


Worksession II-7 (using libraries) 


Given the following routines, decide whether you would put them in an RL or an SL. 

A. Aroutine to perform a large, complex mathematical function, such as random number 
generation, that is used by several programs in your application. 
RL oor SL 


oil) 











B. Two small routines that determine the current location of the stack limit (Z) and then 
shrink (or expand) the stack to that limit. 


RL__X or SL 


Why? 











C. Aroutine to reformat some data used by your main program (not by a procedure or 
dynamic subprogram). 


ce 
RL Xs or SL 
Why? 











If your program has 62 code segments, would you add an RL? 


Yes___ssSsSeses or No a Soe 


; fos 
Y 


Explain: ra, rk 














If the segmented library contains 190 SL segments, would you put any code into a new SL 
segment? 


a ce No ——______ 





Explain: 








II-78a 


Worksession Il-7 (cont.) 


Yes 





Explain: 








If many programs will share a library routine, would you put the routine in an RL or SL? 
i OP a) ae 


Explain: 











If the routine is subject to frequent modification, would you put it in an RL or SL? 


RL or sL_—_\¢____ 





Explain: 
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MULTIPROGRAMMING 


m@ General Considerations 


m™ MPE Process Management 


C4 eackanc 
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notes: 


references: 


qc enn SS SS TT 


multiprogramming 


MULTIPROGRAMMING 


— multiple programs executing at the same time 


™ multiple processes (same program) executing at 
the same time 


-RUN ABC 
job #J05 


‘RUN ABC 
session #824 









process 3 
code 


m@ how are they all managed? 


:RUN DEF 
session #836 





WAI packano 
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notes: 


references: 


multiprogramming 
PROCESS EXECUTION 


suppose 3 processes all start at the same time: 


1. :RUN ABC... 

execution SEEMS simultaneous 
2. :RUN ABC.. 

execution ACTUALLY sequential 
3. :RUN XYZ... 


on the HP3000, only 1 process executes at a time 


| GD HEWLETT 
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notes: 


- While one process executes, other processes that seem to 
be executing are actually waiting. 


references: 


multiprogramming 


EXAMPLE: EXECUTING PROCESS 


m while process A executes, other processes WAIT 


™@ process waits for I/O or for time-out, etc. 


Ike) time up 


{ Y ae 





VO complete A’s turn 
again 


|G HEWLETT 


PACKARD 
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notes: 


- Processes wait in suspended state either because they are 
waiting for I/O to complete or because their allocated 
"time slice" is up. 


references: 





multiprogramming 


EXAMPLE: MULTIPLE PROCESSES 





@ what determines which process executes? 


|G HEWLETT 
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notes: 


references: 





multiprogramming 


Scheduling and Memory Management 


— parallel functions to determine which process 
executes next 


dispatcher 


process A | 


system 
resources 


: process B 





(A eackano 
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notes: 


- The Dispatcher is a program permanently in main memory. 


references: 





multiprogramming 


the Next Process 


selected for execution has: 


@ highest priority - in dynamic queue where priority 
changes as processes execute 


and | 
M@ is ready - has all resources (except memory) 


- is not waiting for I/O 


Cd eackano 
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notes: 


references: 





multiprogramming 
Dynamic Scheduling Queues 


3 Queues: high priority 


C-Queue - 
for terminal transactions 


D-Queue 
for batch transactions 


E-Queue 
for overnight transactions 


low priority 


Cd eackano 
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notes: 


~ In the C subqueue, the system constantly recalculates the 
average time to execute a process, then raises or lowers 
the process! priority accordingly. 


- In the D or E subqueues, average can be specified by 
system manager. 


- The aim of priority management is to favor short 
transactions. 


references: 


jc ee 
multiprogramming 
Finding Memory for Next Process 


MPE: 


m looks for existing free space in memory 
(including segments marked for overlay) 


@ if not enough, begins marking segments for overlay 










e mark segment 
for overlay | | [x] —— | 


@ rearrange free 
space [x] 

e is there enough [Jo 
space now? 


if not 
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notes: 


- Data stacks are selected for overlay before code segments 
because they are usually larger; data must be written 
back to virtual memory before it can be overlayed in main 
memory. 


- System code, as well as user code, may be overlayed; 
everything (except the Dispatcher) is fair game. 


- What happens if there are no more segments that can be 
overlayed, and the current code and data still won't fit? 
The process can't execute! 


references: 





multiprogramming 


Finding Memory for Next Segment 


e code in SEG A calls procedure 
in SEG B 


e if SEG B is in memory, 
all is fine 


e if not, find space for 
SEG B 





@ same procedure as finding 
initial space for process 


| Y HEWLETT 


PACKARD 
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notes: 


- When an executing process needs MORE memory, MPE goes 


through the same procedure it used to find the initial 
memory for the process. 


- In this example, if segment "SEG A" must be overlayed to 
find room for "SEG B", and "SEG B" returns quickly to 
"SEG A", the resulting dise transfers can significantly 
affect performance. 


references: 


multiprogramming 


WORKSESSION IL-8 
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notes: 


references: 


Worksession Il-8 (multiprogramming) 


When two users run the same program at the same time, is program execution 
simultaneous? Explain. 





ee ern er A SS 


If the two users run different programs, do the two programs execute simultaneously? 
Explain. ; 


eee eee net rt CP TE EAC SNS SS SPSS TR TL 


eee carrer Pain A eS POE SAS ASS STIS SSS 


Consider the following list of program functions, and decide which. queue (C, D, or E) to put 
them in: ~ 


A. 


A program run weekly at night to print paychecks on the line printer. 





a ere aan EE EER SRRRR REET mean eneenenenenmemeeneenennnnminaenennnn aaa aaa 


A program to process user requests at a terminal for confirmation of airline reservations. 


ne RL 


ee ER 


A program run as a batch job to update a data base from a transaction file. 


ee NT 


ur re 


A program that accepts data from a terminal and writes it to a file. 


rn 





Is there anything you can do as a program designer to help the memory manager find space in 
main memory for your program? 


RR 


TP 


ee a 
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operating environment 


SUMMARY 


m the process is the basic operating unit 
m@ for efficient processing: 


@ segment code efficiently 
e keep data stack small 
e consider the other processes 


DA oxckano 
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notes: 


references: 


SECTION 


TRANSACTION PROCESSING = 








TRANSACTION PROCESSING | 


m@ Definition | 
m Accounting and Security 


m@ Transaction Processing Options 
— Process Handling 


m Language Considerations 


@ Data Entry Techniques 
— user control 
— V/3000 control/design 


HEWLETT 


emer SS SSE | @ PACKARO 
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notes: 


references: System Manager's Reference Manual 
MPE Intrinsics Refernce Manual 
V/3000 Reference Manual 
Individual language reference manuals 


transaction processing 


DEFINITIONS 


mw TRANSACTION PROCESSING - any interaction 
between a computer system and its users 


m TRANSACTION - the smallest useful unit of work, 
performed by the computer, and defined by the user 


E T 


notes: 


references: 


LS PEs shes sii sc ss assesses 
transaction processing 


Interactive Transaction Processing System 


| provides terminal users, connected directly with computer 
system, with access to information stored in computer’s 
data base and files.. 








data/commands | 
appli- 
| cation 
—_\ {program 
response/results — sub- 
systems 
end user 
computer system 
TE : OA eackano 


notes: 


- The end user is directly responsible for the transaction; 
he/she is not a data processing professional. 


- The terminal provides the interface between this user 
and the computer. 


references: 


transaction processing 


An Interactive Transaction Processing system should provide: 


™ communication through terminals with computer system by 
relatively large number of users 


m@ ability to handle uneven processing load with heavy terminal 
and disc I/O demands 


w sharable code and separate data for all users of a particular 
application 
application code | 
shared by all users 
private "private private 
data data data data 


all users 








terminal user terminal user terminal user terminal user 
CA packano 
1-4 
notes: 


references: 


ee me SS SSS SSS a 


transaction processing 


Interactive Transaction Processing System 


Advantages include: 


m@ interaction where decisions are made — people most 
familiar with data, enter it, interact with it, receive reports 
on it 


™ speeds up business cycle — data is entered, corrected, 
and retrieved where it is used — no more waiting for the 
computer center | 


®@ users see it as their system — more chance for success 


a 
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notes: 


references: 


_ transaction processing 


WORKSESSION III-1 


{i HEWLETT 


PACKARD 
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notes: 


references: 


Worksession Ill-1 (transaction processing) 


Define a “transaction”. 














Describe at least one advantage of an interactive transaction processing system. 











OR describe one disadvantage of a batch system. 
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ACCOUNTING and SECURITY 


m Accounting Structure 


File Security 
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notes: 


references: 





accounting structure 


MPE 
Account Structure 
sys account other account 


Manager 
sam 
mary 





Cd eackano 





notes: 


- One system-wide account available to all (SYS) 


- One public group in each account for all account users ( PUB ) 


references: 





accounting structure 


PURPOSE 


@ protect application and data from unauthorized 
access | 


m@ allow user to do only what he or she needs to do 


HEWLETT 
ee A Ss SS SSS SS | GD PACKARO 
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notes: 


references: 





accounting structure 


EXAMPLE: ACME CORPORATION 






warehouse 


fs inolggeihtand 






data processing 


WAI backano 
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notes: 


references: 





accounting structure 


ACCOUNTS 
m@ should reflect corporate structure 


example: 










HP3000 


| 
operations manager 

SALES 

ACCTG 
LDP 

data processing 
| WHOUSE | 
warehouse 





Opa 
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notes: 


references: 





accounting structure 


USERS and GROUPS 


™@ consider organization of department 


example: Acme Corp. 
Accounting Dept. 


BILL 
manager 
LINDA MARY — TOM 
payroll adm. receivables supv. payables supv. 


SUE HELEN 
order entry clerk clerk 
JOHN 
| collections clerk 


Ci aexanc 
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notes: 


references: 


accounting structure 


USERS/GROUPS 


™ users and groups reflect organization/needs | 


HP3000 system _— 
ae 3 
eu = | 
group 


example: 












ARY 
Soa 
Lee: Coe) 


uy 


Liz HEWLETT 


PACKARD 
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notes: 


references: 


accounting structure 


CAPABILITIES and RESOURCES 


™ capabilities associated with USERS 


™ resources associated with GROUPS 
ALA. 
 Cereers 


Capabilities Resources 


apply security | @ files 
manage files | ® disc usage 


@ 
e 
e process handling ® cpu time 
e privileged mode 





HEWLETT 
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notes: 


references: 













security 
level 1 account — password 
user — password 
group — password 
file — lockword 
level 2 account — capability limits 
user — capability limits 
group — resource limits 
file — access protection 
Sc eet BO ern 
11-15 
notes: 


~- First level provides absolute privacy; it is applied to 
each level of accounting structure, plus files. 


- Second level controls and monitors system use. 


references: 





security 


FIRST LEVEL OF SECURITY 


zhello mary.acctg,collect srun myfile.collect.acctg 
account password? file lockword? 
user password? 


| group password? | 
MPE command interpreter 


account = acctg 
group = collect 
user = mary 
file = myfile 


CA eackano 
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notes: 


- Command interpreter tests for both log-on security and 
file security. It prevents unauthorized users from logging 
on, uSing files. . 


references: 





security 


a en eae ee EE ee ee 
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notes: 


SECOND LEVEL OF SECURITY 
[account accra 
[_____enour = contect 


FILE = CUSTOMER 
lockword = secret 


creator = Bill 
ACCESS; 
read- any user 
write — creator only (Bill) 




























FILE = INVOICES 
lockword = stayout 


creator = John 

ACCESS; 

read— group user . 
write — creator, group librarian 









CAPABILITIES: 
group librarian 
interactive 


- After passing first level tests, access to files and types 


of system use is controlled at second level of security. 


references: 


HEWLETT 
PACKARO 





security 


TIPS 


— avoid too much during development mode 
- can be a nuisance 


m add passwords, lockwords after program developed 
and tested 


m@ use full security during production to protect data, 
control access 


HEWLETT 


nA ST ST | | PACKARD 
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notes: 


references: 


enn ene SS Sa 


accounting and security 


WORKSESSION III-2 


: : HEWLETT 
re ee |G | PACKARD 
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notes: 


references: 


Worksession Ill-2 (accounting structure) 


Given the ACCTG account structure shown in the preceding slides, answer the following questions: 


1. 


A. 


What must the user MARY do in order to read the file INVOICES in the group COLLECT 


_ of account ACCTG? Explain. 














Does MARY need to do anything more in order to modify the file INVOICES? Explain. 











Can a user in the account SALES read the CUSTOMER file in the COLLECT group of 
ACCTG? Explain your answer. © . 














Can this same user in account SALES modify the file CUSTOMER? Explain your answer. 
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Worksession Ill-2 (cont.) 


Can the user in account SALES read the file INVOICES in the COLLECT group of account 
ACCTG? Explain. 














Given: a program file CUSTINV in group COLLECT of ACCTG that allows execution access to 
group users. Can a user in group OENTRY of ACCTG run this program? Explain your answer. 
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TRANSACTION PROCESSING 
OPTIONS 
mw SESSION MODE 


mw PROCESS HANDLING 
gw OTHER OPTIONS 


HEWLETT 


references: 





options 


PROCESS TREE 


“parent” of all 


other processes 






system 
processes 


| 
[ 
| | , 
om #34 ~~ 
: — Cc d 
omman 
FORTRAN MYPROG EDITOR user processes 


|G) HEWLETT 


PACKARD 








1-21 


notes: 


~ Each user process is part of a process tree originating 
with the first process "PROGEN", and with a separate 
command interpreter as its parent. 


- User processes can themselves be parents of other user 
processes. (More on this soon. ) 


references: 





options 


4 PROCESS PER TERMINAL — Session Mode 


command command | command 
interpreter | interpreter interpreter 








; & HEWLETT 
ARES Packaro 
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notes: 


- This is the mode of operation for which MPE is designed. 
As a result, it is the simplest mode to develop and test. 


references: 





options 


Single Process Control 


@ with logon UDCs, end users don’t run programs 







shello... | 
Cudc]) 
logon... 
nolist... 

- nobreak... 


e NOLIST - hides commands from users 
e NOBREAK - exit only under program control 


Cd eackano 
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notes: 


- Such a UDC (User Defined Command) can be used to separate 
the end user from most contact with the operating system. 


- Note the user still has to log on; but logging off can be 
included in the UDC. | 


references: 





options 
SESSION MODE 


ADVANTAGES 


e simple development and testing 
® no special capabilities needed 
e simple local terminal logic 


DISADVANTAGES | 
® extra overhead — each log-on, log-off requires 1/O 


@ limited global terminal logic 
e extra responsibility for end user 


| Si pce tees MON packanD 
111-24 : 


notes: 


references: 





options 


1 PROCESS PER TERMINAL (Process Handling) 
| command 
log-on | , 
contre = 


terminal : HELLO... 
: RUN... 


[rosea n 


no log-on - 
at these ( 
terminals C__\ rc \ — \ s 


r¢ HEWLETT 
PA PACKARD 
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notes: 


- With process handling, the end user can be completely 
separated from contact with the operating system. 


- Note: There is still only one process associated with 
each terminal. 


references: 


erect 
options 


PROCESS HANDLING 


ADVANTAGES 


e END-USER is isolated from MPE commands 
e stack sizes are smaller; code units smaller 
e session overhead reduced 


DISADVANTAGES 


® program testing more complex 

extra overhead for process creation 

BASIC and COBOL ’68 must use SPL routines 
requires special capability, careful management 


fe Deere 
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notes: 


references: 





options 
SOME Other Options 


m@ Specialized Single Program 
multiple applications 


m Central Terminal Control 
multiple applications 
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notes: 


- These other options allow multiple terminals to be controlled 
by a single process. 


references: 





options 


SPECIALIZED SINGLE PROGRAM 
Multiple Applications 


NOWAIT 
/O 






| | selection 
single process 


SA PAPO 
JUV 


multiple terminals 


CAI eackanc 
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notes: 


- Most interactive processes are menu-driven. The difference 
here is that multiple terminals select different functions 
"simultaneously". 


- The multiple terminals are the reason NOWAIT I/O is used, 
but only to control the terminal I/O. 


references: 


rn II 


options 


ADVANTAGES 


@ simple inter-task communication 
e shared stack 
@ fast transfers with NOWAIT I/O 


DISADVANTAGES 


@ complex task handling © 

e@ stack can be very large 

@ program can be very large 

e NOWAIT I/O requires privileged mode 


Ht-29 


notes: 


references: 





options 


CENTRAL TERMINAL CONTROL 
Child Applications 


[— NOWAIT 7 - 
/O control 
es. = 


log-on 








| Cd eackano 
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notes: 


- The control process communicates with the "child" 
applications through "Queuing" files that allow the 


processes to pass messages and be sure the messages are 
received. 


~ Again, multiple terminals connected to the control process 
require NOWAIT I/O. 


references: 





options 


ADVANTAGES 


@ fast multi-terminal handling (NOWAIT I/O) 

e central control over transactions 

e@ individual processes allow small stacks, small 
segments 


DISADVANTAGES 


e privileged mode required for NOWAIT I/O 
® more complicated programming required 


Co} eackano 
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notes: 


references: 





options 


NOWAIT I/O 


‘process continues execution 





disc | terminal 


iz HEWLETT 


PACKARO 
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notes: 


- Requires Privileged Mode to use. Because MPE also operates 
in Privileged Mode, using this mode allows a user to 
damage the system itself. So it must be used with great 
care, if used at all. 


- NOTE: HP does not support applications that use Priviliged 
Mode. 


references: 





options 


QUEUING 
MSG 
file record deleted 
writer | [ reader 
<a: | 
reader | [ writer 
process B 


new record 
added by WRITE 





GA eacxano 
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notes: 


- Only available with MPE IV Inter Process Communication 
subsystem. 


- Deletion of record after it is read allows w 


riter to be sure | 
message has been received. 


references: 


options 


WORKSESSION III-3 


HEWLETT 


|G PACKARO 
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notes: 


references: 


Worksession Ill-3 (options) 


The “standard” MPE processing option runs one process per terminal in session mode. Give at 
least one advantage and one disadvantage of this option. 


- Advantage(s): : 

—_—_—_—_ eee 
NE LL eer epe ervey reo 
Disadvantage(s): eee 
eee 
eee 
—_— eee 
eee 
A. Describe one of the other options we discussed. 

—_—_———_—_—_—_— ee 
eS 
e_—_—_—_—_— OO 
B. Give one advantage, one disadvantage, of the option you described. 
- 
eee 
eee 





III-34a 





PROCESS HANDLING | 


How to do it 
CREATE 
ACTIVE/SUSPEND 
TERMINATE 


Example — 


11-35 


notes: | 


references: 





process handling 


CREATE 


; SSTDIN 
oer $STDLIST 


m loads program file (child) and links child to parent 


I-36 


notes: 


~ The parent process must have Process Handling capability; 
the child process only needs this capability if it uses 
process handling procedures. 


~ Parent can request at create time to be reactivated when 
child terminates. 


references: 





process handling 


ACTIVATE 
parent must child may 
activate child | activate parent 


m@ makes process ready to execute — process either newly 
created or suspended 7 


HEWLETT 


a tear a eee PACKARD 
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notes: 


- Either parent or child can activate related process. 

~ Calling process may choose to suspend when activated process 
starts up. If it does this, the calling process must specify 
who will reactivate the suspended process. 


- Always use checks to determine whether process is suspended 
or already active before activating. 


references: 





process handling 


ACTIVATE/SUSPEND 
m@ PARALLEL PROCESSING — parent and child process 
both run 


m SYNCHRONIZED PROCESSING — parent suspends when 
child active, and vice versa 





parent 


WA 
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notes: 


- Parallel processing is particularly dangerous since an 
active process cannot recognize that it is being activated. 
So make checks before activation. 


- When child terminates, the termination reactivates the 
parent (now suspended). 


references: 





process handling 


TERMINATE/KILL 


wifA terminates, B,C, &D 
are terminated 


wg if B terminates, D is also 
terminated 


w if C, or D terminates, other 
processes remain 


g@ A may kill B or C 
@ B may kill D 





WA eackano 
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notes: 


- A process is said to terminate however it stops; normal 
program termination, abnormal termination (abort), or 
because it is the child of a terminated process. 


references: 


process handling 


DEADLOCKS — 


MUTUAL SUSPENDS - parent and child each suspend, wait to 
be reactivated by other 


MISSING ACTIVATION - parent activates child and suspends, 
child terminates without activating parent 


UNSEEN TERMINATION — parent does not see child’s 
termination since parent was active _ 
TO AVOID — 


e check before activating 
e check before terminating 
@ check before suspending 


references: 


a 


process handling 
SAMPLE PROGRAM 


CONTROL PROGRAM (parent): 
@ creates and activates child processes 


ORDER RETRIEVAL PROGRAM (child): 
® prompts user at terminal for order 

finds order in data base | 

displays order at terminal 

prompts for next order 


HEWLETT 


al | PACKRAD 
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notes: 


- The child program is the same program used as a demon- 
stration in Module II, with minor changes that allow it 
to reactivate parent and suspend. 


references: 





Sample program 





yD LD Dj 





Cd eackano 
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notes: 


- Only the parent process must log on, run the program. 


~ The parent process, controlled from the control terminal, 
controls each child process. 


~ User terminals see only screens from executing child 
processes. | 


references: 





sample program 


PARENT PROCESS 













create activate 
each child each child 
————_ SS 
synchronized | parallel 
processing processing 
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notes: - 


- The sample program uses both synchronized and parallel pro- 
cessing in order to illustrate both methods. 


references: 


TT EST SSS SSS SS SSS SSS sss SSS ss sis 


sample program 


PROCESS FLOW 






















create child terminal # 
pass it LDEV# for 
child process 
until 
all pres activate child 
P suspend 
| logon 
“all children terminal 
ee up” \ 
activate 
each child 
check for “done —A terminal 
until termination yet?” 
all children | 


done Ld 


Wd oackanc 
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notes: 


- This is the flow of the parent process. 


- Note the two stages: the first stage creates each child 
in turn and suspends. The child then opens a user terminal, 
reactivates its parent and suspends. In the second stage, 
Parent and child processes execute in parallel until the 
child processes complete. 


references: 





sample program 


CHILD PROCESS 





error 
subprogram — 


main 
process 


start end 
a setup new code 


ETT 
CA eackano 
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notes: 


~ This is the flow of the child processes. 


Note that it is identical to the sample program in Module 
II except for the "Start Setup" and "End Setup" procedures. 


Look at the source code, PMAP, for this sample program 
in appendix A. 


references: 


process handling 


DEMONSTRATION | 


— CA sss: 
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notes: 


- Log on 


- Run the parent process, PDADP 


references: 


LANGUAGE CHARACTERISTICS 
COBOL 
FORTRAN 
BASIC 
RPG 


SPL 
APL 
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notes: 


references: 





languages 


good for business data processing is better for I/O than 
for computation 


Advantages 


e widely known and used 

e simple record structuring 

@ good data editing and formatting 

e interface to system intrinsics (COBOL Il) 


DISADVANTAGES 


@ long-winded 
@ inefficient computation 
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notes: 


references: 





languages 


COBOL — tips on using 


™ compare and move equal length fields 
use signed numeric items rather than unsigned 


use COMP or COMP-3 to avoid conversion 
1-9 digits — use COMP (PIC S9(9) COMP) 
10 or more digits — use COMP-3 PIC S9(16) COMP-3) 
begin COMP items on a word boundary 
use indexing rather than subscripting 
avoid the COMPUTE statement 
keep structure out of the LINKAGE SECTION 


, AB eacxano 
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notes: 


~ The HP3000 is a word-oriented system. Byte (character) 
boundaries are not supported by the hardware and require 
special handling. 


- In general, these hints are all due to special ways the 


system works. For instance, COMP items of 9 digits or less 
use a fast hardware-support binary arithmetic. 


references: 





languages 


more COBOL tips — Dynamic vs. Static Subprograms 


Dynamic — 
e data is placed in local (shared) area of the stack; keeps 
stack small | 


e extra overhead because data must be re-initialized on 
each call 


e since global area of stack is not used, can be put into SL 


Static — 
e data is placed in global area of stack — increases 
minimum stack size 


e data only initialized once, on first call — less overhead 


@ any MPE files opened by static subprogram are available 
to entire program 


@ cannot be placed in an SL 
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notes: 


references: 


languages 


FORTRAN 


good for computational applications 


Advantages 


widely known and used 

e efficient computations 

@® modular — easy to segment 

@ easy interface to MPE intrinsics 


DISADVANTAGES 


@ no data structuring 
e limited control structures 


CA eackanc 
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notes: | 


references: 





languages 
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notes: 


FORTRAN TIPS 


Avoid formatted reads and writes — causes external 
Calls 


Assign equal length fields for character manipulation 
Avoid multiple entry points to subroutine 

Don’t mix data types within expression 

Avoid double integers as loop variables 


Avoid exponentiation of double precision and 
complex data — causes external calls 


Use EQUIVALENCE statements to redefine character 
data | 


CA eackano 


- Again, these tips are due to the way the HP3000 works. 
Whenever there is hardware support in the form of firmware, 
execution is faster than if a compiler must make external 
calls to special software procedures. 


references: 





languages 


good for engineering and scientific applications, 
and for applications that manage character strings 


ADVANTAGES 


e fast development through interpreter 
good string handling 

good matrix manipulation | 
compile after developing and testing 


DISADVANTAGES 


e variable names limited to 2 characters 
e awkward segmentation | 
@ computation less efficient than SPL or FORTRAN 


A cackaao 
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notes: 


references: 





good for business data processing in batch mode, 
and for report generation 


ADVANTAGES 


@ easy conversion from other machines 
e quick development 


DISADVANTAGES 


e inflexible program control 
e inflexible file management 

-@ minimum control over segmentation 
@ no subroutine capability 


HEWLETT 


EE nen |G PACKARO 
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notes: 


references: 


languages 


SPL 


good for computational applications, and systems 
programming 


ADVANTAGES 


e designed for use on HP3000 — 
e most efficient execution 
e flexible and highly modular 


DISADVANTAGES 


e limited data editing and formatting 
® n> data structuring capability 


| GY HEWLETT 


PACKARD 
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notes: 


references: 





languages 


SPL — Tips on using 
m™ move words rather than bytes, whenever possible 


™@ pass word address, not byte address, if word is 
called for 


m when array size varies, create array dynamically 


ee HEWLETT 


PACKARD 
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notes: 


~ The first two tips are another example of how to use a 
word-oriented machine. 


- The last tip can reduce stack size - you don't want the 


compiler to allocate a stack based on the largest possible 
array size when the size is variable. 


references: 





languages 


APL 


good for engineering and scientific applications 


ADVANTAGES 


e excellent array handling 
powerful operators 
quick development 
modular 


DISADVANTAGES 


@ heavy use of system resources 
® no segmentation 
® cryptic 


2 BA eacxano 
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notes: 


references: 


: ~ 


languages | 


WORKSESSION III-4 


111-58 


notes: 


references: 


Worksession Ill-4 (languages) 


In all languages, it is important to keep word boundaries in mind when programming for the 
HP 3000. True or False? 


All languages give you the capability to segment code into variable length segments. 
True or False? 


Consider the following application needs: 


a) . Generate a formatted report. 
b) Execute machine instructions on the HP 3000. 
c) Manipulate character strings. 


Indicate which language (or languages) you would select to perform each of these tasks. Choose 
from one of the following: 
COBOL FORTRAN BASIC RPG SPL APL 








i eee, NY ai 
Di ee ee Why? 
Cc ———— «|S Why? 
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DATA ENTRY TECHNIQUES 








m@ User Controlled 
m@ V/3000 Controlled 


A] 


terminal 
(Al packano 
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notes: 


references: 


ee eee USN SL . 


data entry 


USER CONTROL 


Program manages terminal interface directly 
e good for simple interactions 
e forms control is complex 


11-60 


notes: 


- If most terminal interaction is "conversational", user- 
control should be adequate. 


- If large complex forms are needed in a data entry type 


application, control of these forms may be very difficult 
to manage. . 


rafaranrae: 


data entry 


CHARACTER MODE TRANSFERS 


terminal computer 





| Type name and press 
RETURN: 


operator presses RETURN 


@ simple to use 
@ no special coding — just read or write 


T 
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notes: 


- This is the method for which the terminal I/O eyecem: was 
designed. 


~ It is simple to use and works very well for short 
conversational transfers. 


references: 





data entry 


BLOCK MODE TRANSFERS 


terminal computer 


JOHN DOE 
500 ARMITAGE AVE 


CHICAGO ILLINOIS 
60614 





operator 
presses ENTER 


™ requires special coding 


complex forms can create large stack 


HEWLETT 


pa A PACKARO 
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notes: 


-~ This type of transfer is best for complex data entry 
applications. | 


- But, it is not at all simple to code; can get all but the 
most experienced user into trouble. 


references: 


eas 


data entry 


BLOCK MODE — Programmatic control of: 


cursor positioning 

scroll display 

video enhancements 

alternate character sets 

ask for and acknowledge data transfers 


uses “ESC” sequences: 

display ‘‘shipto:”’ 

display 

“ESC&al0r5e ESC[ ESC&dJ ESC&a25C ESC] ESC&d@ ESCW” 
Sets up 1 unprotected field, with half-bright i inverse video, and turns 
on format mode 


- Note that you only need to code the ESC sequences once, and 
they can even be saved in a file to conserve stack space. 


references: 





data entry 


SUMMARY 
Character Mode vs Block Mode 
@ easy to code e hard to code | 
e eachcharacterechoed — e characters echoed 
from computer within terminal 
e use for interactive == e use for data entry 
applications applications —_ 


m Both interrupt CPU for each character transferred from terminal 


n HEWLETT 
mel | | PACKARD 
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notes: 


references: 


ee rrennnnensenenenereeeenereaeneeereees 
data entry 


TERMINAL CAPABILITIES 


@ 262X — Interactive Terminals 
2621 
2622 asynchronous only 
2624 V/3000 (no multipoint) 
2626 


M@ 264X — Display Stations 
2640A 
2640B 
2641 synchronous or asynchronous 
2644 Vv/3000 (multipoint on some) 
2645 
2647 
2648 


m@ 307X — Data Capture Terminals 


pou v/3000 asynchronous only 
3077 (hard-wired multipoint) 
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notes: 


~ Note those terminals that allow V/3000, those that do not. 


~ Standard transfers are asynchronous : depend on a start-bit 
and a stop bit to delineate characters. 


- Synchronous transfers (where allowed) are non-standard, use 


lots of memory and special multipoint software, but are 
fast and accurate. 


references: 


cS 


data entry 


~WORKSESSION Ill-5 


«E66 


notes: 


references: 


Worksession Ill-5 (data entry) 


1. Given the following application tasks, indicate whether you would use character mode or 
block mode: 


A. The program prompts the user for a “YES” or “NO” response; if YES, it displays 
information on the screen; if NO, it issues another prompt. 


Character or Block mode? 
| O> 40) [25 | ez mee eee etre ne m,n ee ee eT 
a meer 
ns 


B. The program displays a form into which the user enters a complete set of order 
information. 





Character or Block mode? 
19) Caen ae Pe ace ee 
a a en 
i 


2. Suppose you decide you want to use block mode transfers or V/3000. Are these capabilities 
available on any HP 3000 terminal? Explain your answer. 


_ Orr 
ee 
—_ 
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m FORMS DESIGN with intelligent edits 
m™ STAND-ALONE data entry system 
OR 


m@ FRONT-END to transaction processing system | 


2ST? 
V/3000 data 


terminal 





SD oostraitl 
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notes: 


- Consider V/3000 for applications that need block mode 
terminal transfers. 


~-~ Does not require any programming effort to design forms; 


has special procedures that make forms control, data 
transfers, etc. very simple. 


references: 





FORMS DESIGN 


e Screen Design 


forms designer 
g e Forms Control 


e Data Edits 


»RUN FORMSPEC e Conditional 
: | Processing 





forms file 


IB HEWLETT 
(a EGET a ES SS SECT ST GS BS SRE SSEDSC NIDESTTD a4 PACKARD 
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notes: 


~ No programming is needed to create the forms file which may 
include edits and processing specifications. 


references: 





V/3000 design 
SCREEN DESIGN 








special 
enhancements acme corporation | fields 
. for data 
shiptos [" id 
address: [id 
ety; [ 
state: [—] 2p:[ id 
custom error messages value checks 
111-69 
notes: 


- Screen design is so simple that it is easy to develop very 
elaborate screens. 


- The more elaborate the screen, the more stack space is 
needed. EVERY character and special enhancement adds to size 
of form, hence to stack. Everything on the screen (including 
such cosmetic features as lines of asterisks) adds to the 
stack size. 


references: 





V/3000 design 


FORMS CONTROL 


acme corporation 
® current form may be FROZEN | header information 


® next form may be APPENDED 


customer name [—] 





e either may be REPEATED 


° forms family allows field edits to vary, while screen remains 
the same | | 


HEWLETT 
| GD | PACKARD 
i ec ee eee 
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notes: 


- Forms control is as easy as screen design and is generally 
a good way to save stack space and disc I/O 


- Appended and frozen forms help keep forms a uniform size 
(saves stack). 


- Repeating forms and forms in same family need not be 
reprinted on screen (saves disc I/O). 


references: 





V/3000 design 


FIELD EDITS 


display 
todays date 







ship to: 
address: [—~—~S&d must have 
, value 
ety (J 

state: [—] zip: 


is this legitimate must be a 9-digit number 


state code 





HEWLETT 
|G | PACKARD 
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notes: 


- Edits provide simple way to check on entered data. But, 
keep edits simple to save stack space. 


references: 








V/3000 design | | 
| CALCULATIONS 


order # XX-3275 


parting: »[- 7934625 clerk enters 
qty unit price : values 
total =| 70.00 | 
these 
tax values 
calculated 


final total 74.20 





¢ any field can have calculated value 


© eackano 
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notes: 


~ This provides a good way to help prevent operator error, 
speed up entry, and keep data accurate. But, the operator 
has less control over entered data. 


references: 





V/3060 design 


CONDITIONAL PROCESSING 


select function 


order entry [x] 


inventory control 


customer file 


apy,y2nded screen 


displayed when enter order # 
ORDER ENTRY selected 





e next function depends on value entered 


ED eackano 
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notes: 


-~ This type of processing lets you avoid a lot of programming 
effort. But, it also adds a lot of data to the stack. 


references: 


V/3000 design 


Tips on Field Edits 


Mm use most concise edit 
- EQ, IN, GQ use less code than IF ... ELSE 
- avoid long tables 
- omit field name if possible 


™ use system constants - $EMPTY, $TODAY, etc. 
rather than literal values 


m@ keep custom messages short 


IN SHORT - KEEP ALL EDITS SHORT 





EWLETT 
& PACKARD 
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notes: 


references: 


V/3000 design 


1H-75 


notes: 


references: 


WORKSESSION III-6 


DA cackana 


~ Worksession Ill-6 


Suppose you have a form with 10 lines of header information, including 2 data fields, followed 
by 8 detail lines with 9 fields into which data can be entered. Thus, the entire form has 18 lines 
and 11 data fields. The other forms in the file each have between 8 and 10 lines, each with 
between 7 and 10 fields for data. 


Why is this poor forms design? 











What can you do to improve it? 














Assume an application that accepts data through V/3000 forms. The accuracy of the data can be 
checked through edits stored in the forms file, but these edits tend to be quite long and must be 
applied to each field. Under what circumstances would you choose to put these edits in your 
application program rather than in the forms file? Explain. 














Suppose you decide to perform all your edits through FORMSPEC rather than coded into your 
application. What can you do to make the edits more efficient? 
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Worksession Ill-6 (cont.) 


You have an order entry appiication in which totals must be calculated from quantity, unit 
price, tax, shipping weight. What are the advantages of letting FORMSPEC perform the 
calculations instead of the data entry operator? 


What are the disadvantages? 


IIIT-75b 





V/3000 FORMS FILE 


mM Code Records 


m@ Managing Forms Files 


: HEWLETT 
LL SL A TET Ta Ce aS TSS St ICSE |G | PACKARD 
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notes: 


references: 








V/3000 forms file 
CODE RECORDS 


™ variable length depends on form and field data 
contain everything to display, edit, use form 


many types: 
K - global records 
L - form records 
O - custom messages 
plus others 


BD eackano 
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notes: 


- Code records and the V/3000 data buffers are what a V/3000 
formsfile consists of. 


references: 


SS SSS SSS SSS SS sss SEED 


V/3000 forms file 


FORM RECORDS 


@ 1 for every form in file 


keyed access by a. 


tora eine a) screen design — includes ALL text 
b) field info — all about EVERY field 
c) form info — general form description 





H ET 
_ 1-78 


notes: 


- All the information associated with a form is kept in the 
form record for that form. 


~ A form with complex edits, many special enhancements, etc., 
can generate a VERY big form record. 


references: 





V/3000 forms file 


_ MESSAGE RECORDS 


m@ 1 for every message for every field 


2 ee 


SSS” 
text of message 


keyed access 


by 
field name/message number 


HEWLETT 
ESE LT LS BI TE EN EI IDI I ST VE TEE BSE EOE IIS DSS SS TS TIS NEEDS |G | PACKARD 
111-79 , 


notes: 


- Custom error messages are invaluable for helping operators, 
Since they make error correction much simpler. But, take 
care in their design. Each message adds to the stack. 


references: 





V/3000 forms file 


FORMS FILES AND THE STACK 


DL 


largest | 
form comarea 


in extension 
file 


ne comarea 





™ MAXDATA always required (6K minimum) 
m@ Stack must hold LARGEST form in EACH open forms 
file | 


© eackano 
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notes: 


- The Comarea extension must hold not only the largest form in 
the file, but also all message records, two sets. of data 
buffers (one for data to be edited, the other for data as it 
appears on the screen), plus a global record for all 
information that applies to the entire form. 


references: 





V/3000 forms file 
FORMS FILE SIZE 


















forms file vs. fast forms file 
| directory | 1300 words 500 words 
code 
code compiled records 

source uncompiled 

records forms 
‘ ; used while 
intermediate source being 

records modified 

i GS pevvabret 
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notes: 


~ The directory for either type is kept in the stack, the other 
records are brought in as needed. 


references: 





V/3000 forms file 


FORMS and DISC I/O 





e each new form means disc access to bring code 
_record into stack 


e only repeated forms do NOT require disc I/O 





|G HEWLETT 


PACKARD 
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notes: 


- Forms in the same family also can save on response time; they 
do not need to be repainted on the screen. 


~ The sample program (see appendix A) uses a single form. This 
form is never repainted on screen, nor brought from disc. 
The procedure that "gets the next form" is smart enough to 
realize the "next" form is the same form. 


references: 





V/3000 forms file 
Tips on Form Design 


M@ avoid one long form, many short forms 
- stack size based on longest form 


M@ use repeating forms where possible 
- not “re-painted” 
- saves disc I/O 
- faster response for new form 


™@ avoid fancy touches in protected areas 
of screen: | 


- alternate character sets 
- display enhancements 
- lines of dashes, asterisks, etc. 
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notes: 


_ references: 


V/3000 forms file 


WORKSESSION III-7 


111-84 


notes: 


references: 


Worksession Ill-7 (V/3000 structure) 


1. V/3000 must run with MAXDATA set to at least 6K. Explain why you think this is necessary. 


Would the STACK= parameter be an acceptable substitute for MAXDATA? 
Explain your answer. 


Indicate by a YES or NO after each of the following statements whether it increases the size e of 


the code record associated with each form. 


A. 


Text that is displayed on the form but is not transferred as data. 


Yes —— or No 


Special enhancements that are part of the text but do not enhance the data fields. 
Yes___—————séor No 


The size of the unprotected fields into which data is entered. 


Yes... or No 


The number of unprotected fields into which data is entered. 
Yes______+§ss——— oor No 


The length of the field edits associated with each field. 
Yes____._+_+__+-_+__ or No 


The number of fields for which edits are specified. 
Yes___________ or No 


The total number of fields in the form. 


Yes_.. sor Nlo 
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Worksession Ill-7 (cont.) 


Explain why repeating forms are faster than other forms. 
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V/3000 data entry 


| STAND-ALONE 


clerks 
>RUN ENTRY 





forms file 


edited 


formatted 
data 


batch file 





m@ ENTRY — a general-purpose data entry program 


m™ REFORMAT — a general-purpose reformatting 
facility 


HEWLETT 


eS SFO Sal SE SP SS SS a SS A PACKARO 
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notes: 


- These applications, provided with V/3000, allow 
immediate data entry without programming. 


~ ENTRY is useful during forms design in order to test the 
forms, but is too general purpose to be a highly efficient 
data entry application, and it does not transfer data to 
or from IMAGE data bases or KSAM files. 


references: 





V/3000 data entry 


ENTRY PROGRAM 


available in all languages (except APL) 
browse and modify entered data 
no direct transfer to data base 


excellent tool to test forms design 


easy to modify to suit application needs 


HEWLETT 


LLL LL LAS SSS a SSS STS eh SS eth | @ | PACKARD 
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notes: 


references: 





V/3000 data entry 


REFORMAT CAPABILITY 


@ use to specify new combinations of entered data 


forms designer 


© combine 
:RUN REFSPEC data 


® separate 
data 

© format 
data 





reformat file 


HEWLETT 


LL TET TS a a ST Sa A SETS t% PACKARD 


H1-87 


- REFSPEC allows you to combine records generated by ENTRY into a 
single redord, or to break ENTRY records into multiple records. 


- Also, provides means to reformat individual data fields, omit 
fields, or add literal data. 


~ It cannot repeat a record as part of other records. Once an 


ENTRY record is reformatted, it cannot be reformatted again in 
the same file. 


references: 





V/3000 data entry 
REFORMAT 


entry clerk 
:RUN REFORMAT 


reformatted 
data 

















data 
(1 record 
per form) 






reformat 
specs 


batch file reformat file Output file(s) 


wie HEWLETT 
WLS packaro 
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notes: 


- This capability is most useful during conversions. The data 
entered in new V/3000 forms can be reformatted to suit an 
existing application's needs. Thus, the data is made 
available before the application is rewritten. 


references: 





V/3000 data entry 
REFORMAT TIPS 


m Use REFORMAT to separate or combine data records 


m@ REFORMAT cannot repeat the same header record 
preceding multiple details 


_ Use as interim method until existing application 
changed to process V/3000 data 


Cd eackann 
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notes: 


references: 





V/3000 data entry 


WORKSESSION III-8 


aPie“G wean ewe 


references: 


Worksession Ill-8 (V/3000 data entry) 


The data entered into a set of V/3000 forms must be written to an IMAGE data base. Can this 
be done using ENTRY? Or must you write a special program to transfer the data? 





Explain your answer. 


a a 
a a | 
Suppose you have an application that expects a separate record for each part number entered on 


an order form. You plan to use a new V/3000 form to enter orders in which you allow up to 10 
part numbers to be entered on one form. Is there any way you can use your new form with your 


existing application? 


Yes or No? ———ssSsCSéC<sCSC‘SsC<éxrzpédiinin’ corr ane rr 
Pp y 


a_i een tenn unserentepeeranteneenrnrrnergredeeee 
§ 
—,, LL A A APE fe ernenperearannan 
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eS, SSS eee seuss eRSLSSSSSASRSSs 


V/3000 programming 


FRONT-END 


@ V/3000 procedures to manage forms files, field edits, 
data entry and reporting | 


. user 
application 
entry clerk we a 


:RUN MYPROG 


data 
base 
forms 
file 





OD] PACKARD 
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notes: 


- The application uses V/3000 prodecures to handle the inter- 
face with the terminal, the forms file, the program buffers, 
Or an MPE batch file. It can use other procedures to 
transfer data between the program buffers and a data base. 


references: 





V/3000 programming 


IN APPLICATION PROGRAM 


™@ application uses existing Forms File 
- all edits can be in forms 
- much processing in forms 


V/3000 provides form and data control procedures 
can direct entered data to IMAGE or KSAM 


can retrieve and display data from IMAGE or KSAM 


unlike ENTRY, tailored to user needs 


11-92 


notes: 


- Consider V/3000 for other uses besides data entry. 


- Good for anything that requires form-handling, or block 
mode terminal I/O. 


references: 





V/3000 programming 
FORM AND DATA CONTROL 


screen keys 
VGETNEXTFORM 
VSHOWFORM age LS ms 
= =i 
VREADFIELDS 
VFIELDEDITS control 






VGETFIELD 
[oat messages 
VSETERROR ee a 
VPUT WINDOW data file/ 
—_— program 
VPUTFIELD 
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notes: 


~ Additional procedures transfer data between the program and 
files or a data base. 


- Look at the sample program in the appendix; it uses these 


Procedures (and some others) to manage the terminal 
interface. 


references: 





V/3000 programming 
Form Control 


— display and initialize form 


eee 
forms file ——\ 


(1) VGETNEXTFORM (3) VSHOWFORM 





V/3000 Memory 


CA mackano 
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notes. 


references: 





V/3000 programming 
Collect and Edit Data 


user 
program 


VREADFIELDS VGETBUFFER or 
VGETFIELD 









screen 
image 





V/3000 Memory 


WE eackaro 
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notes: 


- In step 3, VGETFIELD provides greater independence from the 
form. Each field is referenced independently which means 
the form can change without causing the program to be re- 
written. 


references: 





V/3000 programming 


Process Errors 


| user 
program 
VSETERROR 
data | 
buffer 





VSHOWFORM or 


VPUTWINDOW 








window 


V/3000 Memory 





gs HEWLETT 
; PB PACKARO 
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notes: 


- Error processing differs depending on whether edits are done 
in the program or by V/3000. 


- In either case, messages are passed through the "window" area 
of the V/3000 memory to a “window" line on the screen. 


references: 





V/3000 programming 


ERROR HANDLING 


@ all errors require disc I/O to retrieve error message 













<a 
custom 
file 


application 
(or ENTRY) 


Vv/3000 
message 





|G HEWLETT 


PACKARO . 
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notes: 


references: 





V/3000 programming 
Tips for Programming with V/3000 


m put all forms into 1 forms file 
H open only 1 forms file at a time 


@ always use fast forms file for production 


© eackano 





111-98 


notes: 


- Consider making provisions in your code to "time-out" when 
doing terminal I/O. This is a safeguard against operators 
leaving the terminal hanging. 


references: 


a eT TE eA SS PISO 2 GE or TW ES Oca aT 


V/3000 programming 


Should You Use V/3000? 


Mm does V/3000 do everything you want? YES 


M@ can you afford the extra stack space? YES 
@ do you need intelligent front-end edits? YES 
THEN 


V/3000 should work well for you 


HEWLETT 


<select () PACKARO 
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notes: 


references: 


arr A SS 


V/3000 programming 


BUT 
m@ if you need a keypunch replacement 
m@ if you are short of stack space _ 
m if you have SIMPLE forms you can code easily 
- THEN 


V/3000 may be more than you need. 


Ht-100 — 


notes: 


references: 


arses ere SAS EE SE SRE FS ST PG A ST a ae te 


V/3000 programming 


WORKSESSION Iil-9 


HEWLETT 
1-101 | @ | PACKARO 


notes: 


references: 


Worksession Ill-9 (V/3000 programming) 


Suppose you have an application that needs to display small amounts of constant data on the 
terminal screen in a format that uses an elaborate format with field enhancements. This can be 
done a) with ENTRY or b) in your program with V/3000 procedures. Which would you choose? 
Explain your answer. 





i  —————— 


I 


Suppose you have two independent functions in your application, one of which must be selected 
by user input at the terminal. You can ask the user to make the selection on a V/3000 menu 
form, or you can issue a prompt to be answered by Yes or No. 


Would you use V/3000 here? Explain your answer, including any factors that might affect 
your choice. 


TE 
i — 


re i SS ESE TE ——— 





ee Re 


Would you change your answer if there were 3 or more functions to select? Explain. 
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transaction processing 


¥ ie we fr a : \y 6 
f- pe \a oA 
S U M M A R ge ED 
"\ % 


0 
Select: 


@ a processing method 


f3 


® an accounting structure. 
© a programming language .. 
® a data entry method — Pe 


that suits your wrilicsiiieie, ‘and {helps your end user 





GY HEWLETT 
PACKARD 


1-102 Wek 
notes: a 


references: 





DATA MANAGEMENT 





DATA MANAGEMENT | 


m@ Options 

@ MPE files 

"| KSAM files 

MIMAGE/QUERY = > Pe has 


cat 


m@ Choosing the right | wneiee 





HEWLETT 
— | @ | PACKARD 
we a. Lo “ 7 oO 
5 a wre f 
notes: LAG o a 


referenceS: MPE Intrinsics Reference Manual 
KSAM Reference Manual 
IMAGE Reference Manual 
QUERY Reference Manual 





OPTIONS 


O Bi BY 


IMAGE 
data base 


references: 





options 


MPE FILES 


owes Disc files 


tape (eee 


Device files. © ~*~ 

> : UA 5 acer Bien ® o wo Se 
~~ et / 
doe i 


mA 
a 








terminal 
card ee 
reader 
etc. 
“eb oackano 
v3 
notes: 


- Disc files provide both sequential access and random access by 
record number. 


- Device files allow sequential access only. 

- Because device files are slower than disc, "spooling" provides 
a buffer between devices and a program. Spooling is managed by 
the system. 


- All files are managed alike by the MPE file system whether they 
are disc or device files. 


references: 





options 
KSAM 


data 


keys 





files 
e keyed sequential access 


(like ISAM) 


@ keys and data maintained on 
separate disc files 


© many access options 


a: - sequential 
i xe - chronological 
a 9 
at Ge he - keyed 
a Oe ra “ 
1V-4 | . 
notes: 


~- Keyed access has many options: 


multiple keys, duplicate keys, partial keys, approximate keys. 


-\9 sl 
\ ni 
pres : ; ar 
eA 
y 
al 
(V 


references: 





options 


IMAGE data base 


2-level network structure “’ ~ 


data structure independent from 
program 


A QARRSA ES 


s data redundancy 






® access at data item level 


e speciai security and locking 


‘QUERY for rapid data retrieval 





wm YD Packano 
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notes: 


--IMAGE has many access methods: 
serial access, , 
directed access (by record number) 
chained access (items with same value), 
calculated access (find item by its value). 


~ IMAGE has a special security system that goes beyond the 


standard file system security. It also provides simple 
logging and recovery procedures. 


references: 





options 


File System underlies both IMAGE & KSAM | 


Xk NAS 


iri © 





IMAGE 


file system 
(MPE files) 


| Q HEWLETT 


PACKARD 
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notes: 


- KSAM is built directly on the file system; the user has the 
same controls. 


- IMAGE only indirectly uses the file system; the user has no 
direct control over IMAGE files. 


references: 





options 


UNSTRUCTURED vs. STRUCTURED 


MPE files IMAGE or KSAM 












e@ maintains —- keys 
- chains 
7 inters 


Z 


@ no - keys 
- chains 
- pointers 















e limited access methods e excellent access 





® low - cost modification e costly to modify 
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notes: 


IV-7 


- It requires less overhead to modify an unstructured file, 
but it is not necessarily easier. Your application must 
locate the record to be modified. This is done for you 
in the structured systems. 


references: 


options 


notes: 


references: 


WORKSESSION IV - 1 


CD eackann 


Worksession IV-1 (structure) 


Suppose your application has many on-line inquiries, but all updates are batch. In this case, 
would you store your data in structured or pane eroeyired forms? Explain your & answer. 


i ae 4 
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Suppose a lot of new data must be added on-line, and inquiries are infrequent. Would you store 
the data in structured IMAGE or KSAM files or in unstructured MPE files? 

Explain your answer. (\ 
eae eee 
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MPE FILES 


m@ Using MPE Files 


@ Sharing Files 


Cd Packanc 
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references 








using MPE files ya 








De 





Blocks, Buffers, and Extents © °° 


\ Eh it wehce 


‘ 
Aes ua def OF 


pas a oe ep tne | Waste ey wy ee 


1 block (= 1 “physical record”’ 
ey logical 


{ 
I 
i 
: 
I 
| 





buffer 





disc Usvote eae ee eee 


memory 








2) sackaro 
IV-10 one je \ a ff 


inn \ i, 
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- A block is a physical record, the smallest unit transferred 
to/from disc. 


- A buffer holds 1 block of data in memory, is the buffer between 
the disc and the program. 


- A logical record is the smallest unit of data processed by 
a program. 


- An extent is a contiguous piece of a file on disc; most files 
are broken into extents. 

- A sector (not shown on slide) is the smallest addressable unit , fe 
on a file (only the file system knows sector addresses); every ,//" 
block, every extent, must start on a sector boundary. Each," 
sector=128 words or 256 characters. _ poor 

references: et, Ain ror cil 
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vo A rr ae an cone 








using MPE files 


Extent Management (1) 


@ allocation and initialization of extents is automatic 


example: 


- initial allocation = 1 (default) 
- access is random 


record is written 
to 2nd extent 












t records - EOF 
‘in 1st extent (in file label) rs 
( a : ‘ - >) a ’ 
a CA eacKar 
{V-11 
notes: 


~ When system allocates a new extent, it only initializes extents 
up to the EOF; extent past EOF may contain garbage. 





- Allocation and initialization take time. _0 
\ i r Ee yi ans 
\ fru M} ‘ 
CM ; . 
li : 
XY . 
\e 7 | 
*, > a S 
ot J 


references: 





using MPE files 


Extent Management (2) 


@ user can decide: 
= how many extents - file in small or large “pieces” 


= how many to allocate initially — contiguous or discrete 
““‘pieces”’ 


@ user can force initialization of all extents 


6 eackanc 
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notes: 


~- By default, all files are broken into 8 extents; user can 
specify as few as 1 extent, as many as 32. 


- 1 extent allocated initially - this can be changed easily. 


references: 





using MPE files 
Initial Allocation of Extents 


@ initial allocation can reduce 
- on-line allocation time 
- seek time 


—_—> <—————— contiguous extents 
reduce head movement 


extents allocated 
at random may 
cause extra 
head movement 





m disc seek time depends on placement of file 
on the disc 


Ce} ackaro 





IV-13 


notes: 


- Generally, initial allocation of extents not necessary. 


- Note that system attempts to make all initially allocated 
extents contiguous. This MAY reduce seek time. 


- Allocate more than one extent if you know allocation will 


occur during peak hours of on-line processing and slow response 
time. 


references: 





using MPE files 
Choosing the Number of Buffers 


@ 2 buffers — default assigned by MPE 


m@ allows pre-reading of sequential files 


| 1st buffer 
| “CLIT 
CTI N____- [record] 


nee 


disc 2nd buffer aiack 
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notes: 


- Pre-reading means that while records in one buffer are being 
processed other records are being read into the second buffer. 
This only works for reading sequential files, since the 
next block to be read is predictable. 


references: 





using MPE files 


Use 1 Buffer for Random Access 


1 buffer 


“=n yo 





stack 


next record 
_ usually not 
~ next in 


- sequence on 
file 
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notes: 


~ No pre-reading advantage for random files, so no advantage 
from having more than 1 buffer. 


- The single buffer saves memory space. 


references: 


using MPE files 


Use more than 2 buffers, only 
g@ when loading data into sequential files 


m when no other users on system 


— ct stack 
one | record | 


(cual 
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notes: 


- Many buffers use lots of memory and offer NO advantage except 
in the exceptional situation shown above. 


- Particularly, avoid more than two buffers in a multiprogramming 
environment. 


- The number of buffers can be changed each time the file is 
opened, so you can experiment. 


references: 





using MPE files 


Consider NOBUF - (0 buffers) 


@ transfers block directly to user stack 


@ fast 


@ allows multi-rec 





disc stack 
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notes: 


- Program must "deblock" logical records from the block 
transferred to/from the program. 


- Stack must be large enough to hold the entire block. 
- Stack must be "frozen" in memory making it hard for MPE to 


find memory space for executing processes in a multiprogramming 
environment. 


réferences: 


ere eS 


using MPE files 


Choosing a Blocksize 


m Biocksize - a function of record size and the blocking 
factor (number of records in a block) | 


example: 


® Recordsize = 80 characters (40 words) 
e Blockfactor = 6 


ee 


ee anmentl 


1 block = 480 characters 


(240 words) 
; HEWLETT 
IV-18 ; 2 
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- Blocksize is a permanent file characteristic; it is not easy to 
change. 


- Note: The slide only illustrates fixed length records. 
Undefined records are always 1 record per block; 
Variable-length records need extra space in each 
record and each block for a record count. 


references: 


using MPE files” 


_Blocksize and Dise Space 


@ Blocks always start on sector boundaries 


example: | 
e assume biock = 160 words 


biock 160 words -——— wasted space = 96 words/block 


2 sectors 
| (256 words) 
sector 
boundary 











sector 
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notes: 


- In this example, over half of every other sector is wasted. 


- Blocksize should always equal, or be slightly less than, a 
multiple of sector size (128 words). 


- The first block of every file is set aside for the 128-word 
file label; if the block is much bigger than the label, this 
too wastes space. 


references: 





using MPE files 
Blocksize and Access Mode 


vz, {LARGE BLOCK 
m@ means small buffer - | 
less memory space 


needed 
m good for RANDOM m@ transfers more data at 
ACCESS a time - uses more 
memory | 
™@ good for SEQUENTIAL 
ACCESS 
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notes: 


- Because blocksize is not easy to change, plan for the most 
used case. 


references: 





using MPE files 


OPENING and CLOSING FILES 


Use system resources heavily — 


To minimize impact: 
™@ open file once at start of program 
@ leave file open 


Niet putting. all OPENS and CLOSES in separate 
code segment 7 





; HEWLETT 
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notes: 


- When opening a new file, open the file, close it at once to. 
save it as a permanent file, then open it again. This 
insures file is not lost. (New files are session temporary 
until closed). Or, build the file with a command and then 
save it as a permanent file. 


- Opening a file is a major operation; it involves writing 
from the file label to a control block, setting up the 
EOF, setting up record pointers, and establishing the 


access path to the file. Closing a file reverses these 
steps. 


Bris ns nes A reed 


ae VA ~~ Mg ve: f —— 
Ad 
see EC rene - 
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Ray 


references: 


MPE files 


WORKSESSION IV - 2 
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notes: 





references: 


Worksession IV-2 (using MPE files) 


Suppose you plan to read an entire file from beginning to end in sequential order, and you are 
one of many system users: 


A. 


Would you specify 0, 1, 2, or more buffers? Explain 


° 
ry 
? 
via 


*. 


en oe ‘ a eet ; : nN 
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Would you specify a block factor that gives many records per block or few records per block 
(records are fixed-length). Explain your choice. 


CR eer 
ae) ned 


Ae 

















Suppose you plan to add new records in random order, and you do not want to “deblock” 
each record. . 


A. 


Would you use 0, 1, 2, or more buffers? Explain. © 





a 














Would you specify a large or small block size? Explain. 
VA fA aff 
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SHARING FILES _ 


m Locking Strategies 


m@ Multi-Access 


A i 
1V-23 


CD cackano 


notes: 


' pafaranraec: 





locking 


A Gentleman’s Agreement 


| process | process 
pe 


A “‘locks’’ file 

A modifies record 5 B attempts to “lock” file 

A “unlocks” file B waits until A “unlocks” file 
B “‘locks’’ file 
B reads record 5 
B “unlocks” file 
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notes: 


- The locking mechanism depends on all sharing processes testing 
and respecting locking signals. 


references: 





locking 


File is shared—Buffers are not 


' | process 

A 
process 

B 
process 

Cc 


® buffers contain data, current record pointer 
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notes: 


- Fach buffer can contain different versions of the same record. 


- Fach buffer can have a different record pointer to the current 


record. ‘ : 1 J 


references: 


TL SSS 


locking 


LOCK/UNLOCK 


makes sure data is in only ONE program’s buffers 
at a time 


buffers il i 
program = 


LOCK: starts with empty buffers 





UNLOCK: ends with empty buffers 
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notes: 


- Locks ensure that data and pointers are only in one set of 
buffers at a time. This keeps the file orderly with only 
the latest data, however many processes are concurrently 
accessing the file. 


references: 





locking 


When to Lock 


M@ when a file is shared, locking insures data “integrity” 


example: 


process va 
a, 
ivr, Ie 
B 






e which processes need to lock file X? 


e which processes need to lock file Y? 
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notes: 


~- No processes need to lock file X; it is not being modified. 


- All processes need to lock file Y, even process B, that only 
reads the file, if it wants to read the latest data. 


references: 





locking 


@ what if sharing programs DO NOT LOCK/UNLOCK? 


reads, buffer for “A” 
modifies contains new value 
record 


buffer “A” 


old value 
still in file 
reads 
record — bufferfor“B” 
contains old value 
buffer ‘“‘B”’ 
Ga on PACKARD 
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notes: 


references: 





locking 


m@ lock around logical transactions 


good: LOCK 


no changes can 

READ occur between 

UPDATE READ and UPDATE 
UNLOCK 

poor: READ another user can 

LOCK change data 

UPDATE (or move pointer) 
UNLOCK between READ and LOCK 


i HEWLETT 
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notes: 


references: 





locking 


@ beware of locking around a terminal read 
example: 


process 
A 


locks termina! 





m@ all processes wait for operator to wake up! 


POD HEWLET! 
PACKARE 
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notes: 


- Devices as well as disc files can be locked. 


- A time-out procedure can be used to make sure terminal is not 
left hanging. 


references: 





locking 


| LOCKING Uses Resources 


@ use locks with care 
™@ consider designs that avoid locking 


example: 





process 
A 


process 
B 





adds/updates 
7—9am 









gam to 4pm 
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notes: 


~- Locking overhead is caused mainly by the number of disc 
transfers needed to post the buffers at each lock and unlock. 


references: 





shared files 


MULTI-ACCESS 
pro 

We | 
m™ shares access path (buffers, pointers) 
@ restricted to father/son processes 


M no LOCK/UNLOCK - = (0 © a) 
in 


process 
A 
oan process 
process B 
tree 


on a - 


r™ J yey hae 
! ‘ exe Yolo 


ee 





process 
C 
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| [ 
notes: 7 


references: 


mn ee A SSC 


shared files — multi 


MULTI-ACCESS - Advantages 


™ saves memory - single rather than multiple buffers 
m™ reduces number of locks 


m reduces number of opens/closes 


HEWLETT 
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notes: 


~ Multi access provides a way to pass the file number of the 


shared file between processes - this cuts down on the number 
of opens and closes. 


- Also, it allows chronological writes by many users without 
locking around each write. 


references: 





shared files — multi 


MULTI-ACCESS - Disadvantages 


@ only useful for process-handling applications 
lf requires cooperation between sharing processes Vs 
@ may require locking of global resources - 


m buffers are required 


HEWLETT 
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notes: 


- Only one file close takes effect, so users must cooperate 
to insure correct disposition of file as determined by 
close. 


- Global resources need to be locked only if the file label 
is directly modified. 


- NOBUF transfers are not allowed with multi-access. 


references: 


— Sharing files 


WORKSESSION IV - 3 


notes: 


references: 


_Worksession IV-3 


1. Assume two programs share a file; program “A” updates employee records, program “B” 
retrieves current employee data. 


A. Which program must lock the file? Explain. 


B. If program “B” can use data that is one day old, write a scenario that avoids locking 
altogether. | 
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Worksession IV-3 (cont.) 


Assume two programs that share an inventory control file; program “A” adds new parts to the 
file; program “B” checks the latest on-hand quantity of any part in the file. If locking is used, 
both programs must lock the file. 


For program “A”, which locking strategy would you choose? Give your reasons. 


A. LOCK file 
READ record 
UPDATE on-hand quantity | 
loop back to READ next record = | / 
UNLOCK file f 


B. LOCK file 
READ record 
UPDATE on-hand quantity 
UNLOCK file 
loop back to LOCK file 


























Assuming the programs in question 2 are child processes in the same process tree, describe how 
they can both access the file at the same time, and allow “B” to get the latest data without 
locking the file. 1G 
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a Overview 
@ Key Selection 


m@ Using KSAM Files 
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notes: 


references: 





OVERVIEW | 


‘< 
es 2 


= What is a KSAM file? 


m Guidelines for selecting keys" 
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notes: 


references: 





KSAM file 


=m aKSAM file = 2 MPE files 


a data file plus a key file 
data block blocks 
fain BiGkk key block 
co 



















ae 
pe 
a 
ae = 
Po 
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notes: 


- KSAM files are accessible in all languages except APL. 


- KSAM interface built into RPG and COBOL II, must make 
procedure calls from FORTRAN, SPL, BASIC, or COBOL '68. 


references: 





KSAM file 


SEQUENTIAL ACCESS 


data file - key file data file 













KELLOG 
CARTER 


| KELLOG 
CARTER 





m@ by key vaiue @ in chronological order 
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notes: 


- Key access may use primary or alternate key; keys determined 
when file is created. Sequence in ascending order by key 
value. 


- Data may be written to file in primary key order, or it may 
be written in chronological order. 


- Access in chronological order is not available in BASIC or 


COBOL '68. Chronological access is like sequential MPE access; 
key file is not used. 


references: 





KSAM file 


RANDOM ACCESS 


data file key file 


™@ access particular record by key value 


@ exact key - e.g. key = “KELLOG” 
KELLOG 


@ partial key - e.g. key = “KE” 


CARTER 


@ approximate key —- e.g. key = “K” 
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notes: 


- Direct access by data record number is possible in any language 


except BASIC and COBOL '68; as with chronological access, the 
key file is not used. 


references: 


KSAM file 
DELETING DATA RECORDS 


old new 
data file data file 


= 
WY) 
LLL 


YU, 






N? 









NSS 


e record not physically deleted 


AL reload 
WLLL) 
Wl 


_ 


e “deleted” record in data file 
marked in 1st word 


@ reload removes records marked 
for deletion from data file 





X = delete mark — 


m@ reload frequently if file has many deletions 
1d ssincasiibsn asinnceasesenonningetlcsse OD Breet 
IV-41 we — 
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\ A : ro f “ ees & r » ( ‘| CA ae A) oO a a rae a é an OK) de : Coniaserns, 
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- "Deleted" data record remains in data file with a delete flag 
in first word. 


- Key entries for "deleted" records are physically removed from 
the key file; key file pointers are updated 


- Leave first word (2 characters) of each data record blank, 
so delete flag does not overwrite data. 


references: 





KSAM file 
KSAM Utilities 


use FCOPY 
e for fast, unprogrammed inquiry 
e for loading data into KSAM file 
e for re-loading data to compress file 


use KSAMUTIL Last 
e to create file {- — 
e to clear data from file 2 oe ot 
® for recovery from system failure , eee: 
@ to retrieve file statistics i : 
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notes: 


- It is possible to create a KSAM file programmatically in an 
SPL, FORTRAN, or COBOL II program, but not in BASIC or COBOL 
‘68. 


- There is no built-in KSAM logging capability and no built-in 
back up capability; but can use MPE facilities. 


references: 





KSAM file 
KSAM Tips 


e OPEN file using data file name — not key file name 
@ LOAD file in sequential order by primary key 


e PLACE data file and key file on separate discs 
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notes: 


- If you open the file using the key file name, the key file 
is opened, the data file name retrieved, and the key file 
closed, then the data file is opened, the key file name 
retrieved and the key file opened. The first open and 
close of the key file is not done when you open the file 
using the data file name. 


~- Loading data in primary key sequence takes a little longer 
than loading in chronological order (and makes a larger 
key file), but significantly speeds up access by primary 
key. It produces a tidy data and key file. 





- Separate discs save seek time. 


pan ud 





references: 


KSAM files 


WORKSESSION IV - 4 


— CA Ses 


notes: 


references: 


Worksession IV-4 (KSAM files) 


Suppose your application keeps its employee records in a KSAM file. Once a week, it retrieves 
all the records ir the file in sequence by employee last name; once a month, it accesses all 
records by department code. Also, it must occasionally locate all employees whose names start 
with a particular letter. 


A. 


Which item would you choose as the primary key, employee name or department code? 





Why? ‘ a 
i | = . ; £7 . 
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Taking into consideration the item you chose as the primary key, is there any advantage 
to forcing new records to be added in primary key sequence? Any disadvantage? Explain. 
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Do you need to know the record in order to find the first employee whose name begins 


_ with “K”? Explain your answer. , \ 


eee nena A SS TS tS 


Over a period of time, many records are deleted from the employee file, and you notice that 
accessing the file is slower. 


A. 


Explain why this happens. F ae a oe h 
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GUIDELINES for KEY SELECTION 


@ Multiple Keys 
m@ Changing Key Values 


™@ Duplicate Keys 
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notes: 


references: 


er 
selecting keys 


Avoid Multiple Keys 


m@ use as few keys as possible 


— each key increases size of key file 


key file 
2 control blocks 


blocks for 
primary key 


blocks for 1st 
alternate key 


EwLverTT 
Sa a ee ee | @ PAC KARD 


notes: 


- Up to 16 different keys are allowed! But, use that many only 
if response time is not a consideration. 


references: 





selecting keys 


Select Static Values for Keys 
delete flag 


IX} JONES 
408 426-6974 


JONES 
408 427-1234 





oon 


or 


@ update of key value forces record to be: 
— deleted from data file 
— added as new value 





™@ adds unnecessary data to data file 


@ key file must be restructured 
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notes: 


- In this example, assume the phone number is defined as a key. 
When the phone number changes, the entire data record is marked 
for deletion, the old key entry is deleted and the new key 
entry added to the key file. 


references: 





selecting keys 


Key File uses B-tree Structure 


@ each key uses separate “tree” of key blocks 
Mm key blocks linked through pointers 


M key block structure changed when: 


e new value added 
@ old value deleted 
e key value modified 
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notes: 


- To understand how keys are located (and managed), it helps 
to know something about the key file structure. 


references: 





~ selecting keys 


Example of B-tree Structure 


2-level tree: 





YiYiHBi “root” block 
“a |-] 5 |-A-YGZ] ‘teat’ blocks 


3 | 
pointers 


ENENZIHG 


@ binary search fast for unique keys 


™ adding new values expensive 
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notes: 


- Key values are in sequence within blocks. 

- The root block always has central values - so that values 
are balanced, as many greater as there are lower values 
than the root values. 


- Each block is at least 50% full, but empty entries are kept 
for expansion, to minimize chance of block splits. 


references: 





selecting keys 
Number of Levels and Disc 1/O 


@ binary search efficient for unique keys 


example: find key = “15” 
SoU 7si [90h +O root 
54]-[57/--F7] eves 


22)-[27| VAN ever 







7 |e] 12]+]15]-1777+ 


@ three levels in tree — up to three disc accesses 
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notes: 


~ Because of binary search, only one disc access is needed for 
each level. The root level block may already be in the buffer 
from previous accesses, so the disc I/O to bring in the root 
block is often unnecessary. 


references: 





selecting keys 


Creating Duplicate Keys 


data file key file 


[sones_ (I 
[aoaws | 
Ap 
=) 








™@ order of keys depends on how 
file created 







DUP e chronological order 
© updates show 


WILSON 


key file built with: DUP 
(key order chronological) 


RDUP ¢ keys in random order 





e. updates as fast as any 
other key 
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notes: 


- Adding new keys is always time consuming; adding duplicate keys 
is even more so. 


- Trying to maintain chronological order adds to the overhead of 
adding new duplicate keys. So, use RDUP unless chronological 
order is essential. 


references: 





selecting keys 


Accessing Duplicate Keys 


—@ KSAM maintains “chain” of duplicate keys in key file 
m@ read by key gets first key in chain 
™ long duplicate keys slow to access 


e lose advantage of B-tree structure 
e binary search inefficient for duplicate chains 


HEWLETT 
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notes: 


- The binary search technique is designed for unique keys. It 
is extremely inefficient for accessing duplicate keys and can 
double the disc I/O needed to find the start of a long 


duplicate key chain. So, keep duplicate chains short! Don't 
choose "male/female" as a key. 


references: 


selecting keys 


WORKSESSION IV - 5 


IV-53 


notes: 


references: 


Worksession IV-5 (selecting keys) 


Assume a file with the following items in each record: 


Customer Name (in format: First Last Initial) 
Street Address 

City 

State 

Zip Code 

Phone Number 

Purchase Order Number 


Suppose the application needs to 


a) 
b) 
c) 
d) 
e) 


Z 


Update customer information given only the customer name: 
Add new customers 

Mail literature by zip code 

Retrieve the purchase order number for a particular customer 
List in alphabetical order all customers with the same last name 


How many keys do you need? 





Which items did you select as keys? 











Does any key item need to be modified? If so, which? 











Are any keys duplicates? If so, which? 











If you need a duplicate key, would you make it a key added in chronological order (DUP) or in 
random order (RDUP)? Why? 
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Worksession IV-5 (cont.) 


Which function (a, b, c, d, or e) do you think produces the most overhead? (Assume the customer 
name does not change.) Explain. 








a 
Which function (a, b, c, d, or e) produces the least overhead? Explain your answer. 
a a a 


er in er nneneenrenynaztuinpesrtrgeneeeeeeres 




















Can you think of any ways to reduce the number of keys or to make your keys more effective? 
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| USING KSAM FILES 


m Key Blocks and Buffers 


m Shared Files 


|G) HEWLETT 


PACKARD 


notes: . 


references: 





key blocks and buffers 
Key Blocksize and B-tree Levels 


= KSAM default good for most files, but you ¢ can 
change key blocksize 


@ in “ies - Saad hie blocks tend to reduce number 
of levels - ~ 


@ experiment to deteruing best blocksize that does 
not increase number of levels 


m™ remember, the more levels, the more disc 1|/O 
for access 


O Bae 
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notes: 


references: 


key biocks and buffers 


Choosing a Key Blocksize 


™@ consider method of access 
- larger blocks for sequential access 
- smaller blocks for random access 


_@ consider number of leveis in B-tree 
problem: | 
A) blocksize is large, levels in B-tree = 2 
B) blocksize is smaller, levels in B-tree = 2 
C) blocksize is very small, levels in B-tree = 3 


which blocksize (A, B, or C) would you choose 


~ for random access? 
— for sequential access? 


, CA oackano 
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~ Choose B) for random access because you want the smallest 
block size that does not increase the number of levels. 


- Choose A) for sequential access since it gives you both 
a large block and few levels. 


~ There is no good reason to choose C) since it increases 
the number of levels with consequent increase in disc I/O. 


references: 





key blocks and buffers 


Default Number of Key Buffers 
assume: file has 2 keys; primary key has 2 levels, and 
alternate key has 3 levels: 


| READ/WRITE or. 
READ only | WRITE only UPDATE 











| data data 
buffers buffers buffers 
aaa 3 Be resrecad 
eee key reel 
buffers 9 cena 8 
‘1 per level key — key 
for key with buffers 
(for key wit buffers aaa 
most levels) aa 
2 eae 
1 per level per key + 3 
3 per key + 3 





1s 
WZ packarec 
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notes: 


The data file uses a single buffer - this cannot be changed. 


~ The number of key file buffers can be increased or reduced 
if the default is not working well. 


- The default is based on a combination of access mode, 
number of keys, and number of levels iin the B-tree. 
eee ae 
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ans co he Ae 


+ pe’ f 


i ae 
afr 


references: 





key blocks and buffers 


EXPERIMENT with Number of Buffers 


If default not satisfactory — 


@ you can change number of buffers any time file is 
opened 


@ consider more buffers 
- for loading data into file 
-~ when there are few other users on system 


IV-58 . 


notes: 


- Generally, the default works well. Still, there are 
situations when the default can be improved on. 


- Each additional buffer increases the size of the extra 
data segment that holds the buffers, (an extra data 
segment is maintained for each open KSAM file). 


references: 





shared KSAM files 
Extra Data Segments 


@ 1 per open KSAM file 


m™ contain data buffers, key buffers, control blocks 


<a 
=] & 


KSAM file 
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notes: 


- The separate extra data segments and private control blocks 
add to the overhead of using KSAM files. | 


- Private control blocks mean the record pointers and the current 
EOFs are not shared. 


references: 


ee EE 
shared KSAM files 


USE LOCKING! 


LOCK - writes CONTROL BLOCKS from file to XDS 
UNLOCK - writes CONTROL BLOCKS back from XDS to file 


control 
blocks 






buffers 
key 


XDS 


KSAM files 
e causes extra disc I/O 


AE 
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notes: 


~ Locking insures that the latest record pointers, and the EOFs 
for both the key and data files, are posted to the file before 
the file is accessed by any other process. 


references: 


shared KSAM files 


Lock around Transactions 


m@ lock before moving pointer when access is 
pointer dependent 


@ example: 


LOCK 


READBYKEY <-positions pointer - 
REWRITE <— uses pointer 


UNLOCK 
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notes: 


- Some procdures (such as rewrite or delete) depend on the 
current pointer being positioned correctly. 


- Others (such as a key read) position the pointer at a 
particular record. 


- Still others (such as sequential read) advance the pointer or 


leave it where it is depending on the preceding 
procedure. 


references: 


remnant a eee een ees at eel 


shared KSAM files 


Structure Transactions (1) 


to reduce overhead when files are shared: 


™ separate reads from updates 


—use different terminals 
- if possible, at different times 


: coe 


read only | update only 


CB eackano 
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notes: 


references: 





shared KSAM files 


Structure Transactions (2) 


@ add or delete records in “‘batch”’ 
1. Enter new records, deletes on-line to MPE transaction file 


2. Update KSAM file from transaction file as batch job 


Fe} 


adds/deletes batch 
on-line | update 
to (after hours) 
MPE file 


LAT ee ee 
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notes: 


references: 


ene nea a oS 


using KSAM files 


WORKSESSION IV - 6 


HEWLETT 
2 sume et RESETS PETE PP I ETE SED A PACKARD 
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notes: 


references: 


Worksession (IV-6) (using KSAM files) 


Suppose you specify a small key block size in an attempt to reduce your key buffer size for a 
random access operation. You find that access to the file is slower than it was before you 
reduced the key block size. You then run KSAMUTIL and find that there is a 4-level key in the 
file whereas there-used to be at most 3 levels. 


A. Explain why reducing the block size made access slower. 





“ a 2 i a pr OM 
VX ete yok ay SL ip ; 
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B. What would you-do in this case to make the disc access faster? | 


Which is easier to do: change key block size or the number of key buffers? Explain. 








Two programs both access the same KSAM file. One makes on-line updates to the file; the other 
produces daily reports based on a sequential retrieval of all the records in the file. 


A. Explain why these programe must both lock the file when accessing it simultaneously. 
SO ne Lei x devs db Bale WD. Sate Pies. 












B. Is there any way both these programs can execute without locking the KSAM file? 
Explain. 
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IMAGE/QUERY 


m@ Data Base Definition 
musing IMAGE 
m@ IMAGE Structure 


m QUERY 
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notes: 


references: 
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notes: 


references: 


~ DATA BASE DEFINITION 


An Overview of 


e IMAGE concepts’ ‘\ ~~~ 


e Passwords and Security 


e Multiple Data Bases 


wiTe HEWLETT 
B72 pacxaro 





data base definition 


What is IMAGE? 


@ a structured collection of data sets 








master | 
“en \_/ 
least structure maximum structure 
roe yi eget See oD FL Le gg . 
arenas ©) cackano 
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notes: 


- Each data set is an MPE file. Data sets can be stand-alone 
(not connected to another data set) or many data sets can 
be connected through multiple "paths". 


~ This wide range of structure allow data bases to be tailored 
to the application. 


references: 





data base definition 


IMAGE Structure 


m each data set is a file 


m linked through “root file’ containing data base definition 





a LA ee 
| == | | pias | 
a 8 t | 
i fi .. _ ' 
| i | a 
| ] 8 | 
a a | it 
Meo ae Secu ee" 
Py eed TS oe we, 
ee A &....-- -4 root file - contains “IMAGE” 
; ' : ' of data base 
| | - § i 
5 a 1 t 
| | a | 
\, \. We? 
data base files 
CA packarc 
IV-68 
notes: 


- The root file contains a full description of the data base, 
including all paths, chains, item definitions, passwords, 
etc. 


~-~ The root file is shared by all users of the same data base. 


references: 





data base definition 


Paths and Chains 


Paths link master to detail data sets 
(ed Reet) ® use as few as possible 


e select search items that change 
infrequently 


path e choose the most-used search item as 
the head of a primary path 
Chains link items in detail with the same 
search item values 
e@ length of chain not significant 
® access in either direction _ 
® search items must not be sort items 






\ [127] ACE Inc 
‘au ABC Co 


chain 
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notes: — ee ae 


references: 





data base definition 


Entries and Items 
m@ an IMAGE entry corresponds to a record 


@ an IMAGE item corresponds to a field within a record 







acct name date code 
ith [JONES JOHN H ent 
within — | 12345 _ 051180 | 25 | } entry 
entry 98765 | MARTIN MARY X | 061180 | 03 _ 
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notes: 


- Special item types are search items and sort items. 


~ Search items define the "paths"; the same search time must be 
in a master and its associated detail. They also define the 
"chains" which are simply search itmes with the same value 
in a detail data set. 


- Sort items (which must not be search items) are items on 
which a chain can be sorted. 


references: 





data base definition 


Master Data Sets 


@ MANUAL - search item (key) PLUS data 
- may be stand-alone | 
- values must be added by program 
—- provide direct control over data 


@ AUTOMATIC - search items only 
- values added automatically 
— must be linked to a detail 
— good when search items are 
numerous or have many unique 
values 
- saves coding effort — 


HEWLETT 
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notes: 


~ Use master data sets for search items (keys), and for 
one-of-a-kind data. 


~- Basically, masters provide the key to the bulk of the data, 
which is stored in details and often has duplicate key 
values. 


references: 


data base definition 


Detail Data Sets 


details data sets - linked to masters by paths 
| nes | mm se 


earn 
Gm UWuVvY iv 


~ duplicate items are linked in 
“chains” 


@ use for values linked to more than one 
master 


m@ use for any-items that must be sorted 


Co mackant 
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notes: 


- Good for such items as: sales records, purchase orders, 
shipments, that can be associated with several masters and 
that are repeated items linked through duplicate search items 
(key) values. 


- Sort items can only be in detail sets. 


references: 





data base definition 


Choosing a Structure 


a multiple paths 
- for stable data that seldom changes 
- for inquiry-type applications 
- to avoid redundant data 


@ stand-alone data sets 
- to provide IMAGE security and logging 
- for shared buffers in shared environment 
— for QUERY access 


the structure of the data base should reflect the structure 
of the organization 


HEWLETT 
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notes: 


- Only define paths that are absolutely necessary. 
- Each additional path increases the complexity of the data 


base; this, in turn, adds to the overhead particularly for 
modifying the data. 


references: 





data base definition 
Passwords and User Classes 
M™@ provides access on “‘need-to-know’’ basis 


credit 
clerk 


supervisor eee | 
| customer name 


can UPDATE can READ but 


items 
these ! credit rating tl egal 
and 
thie ipEAD balance due order 


€m clerk 














aN 
ney 


can UPDATE this 
item (read and write) 
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notes: 


~ Passwords are associated with classes of users. 


~ Each user class is allowed to perform specific tasks on 
specific items. 


~ There can be up to 63 different user classes. Thus, the 
access restrictions can be extremely precise. 


references: 





data base definition 


Multiple Data Bases 


m@ consider more than one data base 
- for complex applications with many items 


application » 
— i 


parts description inventory control 





ay newer: 





1V-75 


notes: 


~ Multiple data bases may be a good way to reflect application 
needs. 


They are also a solution if there are too many items for a 
Single data base (more than 255). But, this is not the only 
solution. There are usually other ways to reduce the number of 
items; for example by combining several into one item. 


references: 





data base definition 


Multiple Data Bases 


ADVANTAGES _ ~backup and recovery faster per 
data base | 


-simplify individual data base 
structure 


-more appropriate for some 
applications 


DISADVANTAGES -more overhead 
-some redundant data 
-logging more complex 
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netes: 


- If you use multiple data bases, try to open only one at a 
time, particularly if the data bases are accessed by the same 
process. 


éferérice 





data base definition 


Seme Guidelines 


™ use master sets for unique items 


e automatic masters for many unique 
search items 


® manual masters for data plus search items 


M@ use detail sets for: 
® repeated (duplicate) items 
e items linked te mere than 1 master 


™ use only those paths that are really needed 


e make most-used path the ’primary” path 


CB eackanc 
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notes: 


references:” 
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data base definition 


WORKSESSION IV - 7 


1V-78 


notes: 


references: 


Worksession IV-7 (data base definition) 


Assume you want to put the following items in a data base: 


Customer name 

Street address 

City 

State 

Zip code 

Phone number 

Part description 

Order number 

Price (of part) 

Part number 

Purchase order 

Quantity (of part ordered) 
Unit measure (by which part is ordered) 


And suppcse your application wants to perform the following functions: 
a) Locate an order by its number 
b) Retrieve the part ordered, the quantity ordered, the unit price, and 
_ the total price. 
‘c) Bill the customer referring to his purchase order and the particular order number. 


Answer the following questions: 


1. Which item(s) would you put in a master data set(s). Explain. 





2. Which item(s) would you pubs in detail data set(s)? Explain. 


} | ; é 
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Worksession IV-7 (cont.) 


3. Identify any search item(s). 
: ‘ \ 
Deva. A ye henle 





4. How many paths (total) does your data base have? 











5. Are any sort items needed? If so, which? / 
ne 


6. Suppose you wanted another item to contain the order date, and you wanted to list all 
orders according to this date. How would you redesign your data, base? 
" : i\ 


\ aot 
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Werksessien IV-7(cent.) 


7. Draw a diagram of the data base you have designed (optionally including the order date 
from question 6). Show where items go and which head paths, etc. 








m Opens and Cioses 

m@ Types of Access 
m@ Locking Strategies 
a] 


Maintenance 


CD eackano 
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notes: 


references: 





using IMAGE 


Opens and Closes 


@ use even more overhead than MPE or KSAM files 


@ limit to once per process 


open data base 


start 
all transactions 
against 
data base 

end 





close data base 


a NE DS SSE TE LTR LE ea a Pe a en 


1V-80 


notes: 


references: 


CD mackano 


_using IMAGE 
How to Open 


@ variety of modes 


- combine type of access (read, undate, modify) 
_type of use (exclusive, shared) 


- coordinate all data base usage 


ww it! 8 


@ select the mode that 
- uses the least capability to do the job 


- allows concurrent users sufficient power to do their 
tasks 


A cack: 
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‘notes: 


- Modes with low capability (such as read only) mean the least 
Overhead. | 


- When other users plan to add or delete entries, use a mode 
that allows them such access and protect your process 
by allowing locks. 


references: 





using IMAGE 


How to Close 


@ consider options other than full close 


(1) Close entire data base - required before exit from 
program 


@) Close individual data set — to release all resources 
(except locks) 


) “rewind data set — to reset dynamic pomters: maintain 
current path 





CAD packaro 
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notes: 


- Mode 2 close uses less overhead than a full close, but it 
makes no sense to close a data set if you plan to open it 
again. In such a case, leave it open until you no longer 
need it or are ready to close the entire data base. 


- Mode 3 is useful before a serial read of the entire data set. 


references: 





using IMAGE 


= serial 
m@ directed 


@ chained 


Access Modes 


-esséentiaily a simple serial access 
-—random by record number 


-all items in detail with same search 
value 


m caiculated —locate item by particular value 


HEWLETT 


en ee ee] |Z | PACKARD 
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notes: 


~ Serial and directed access are very much the same as 
sequential and random access to an MPE file. 


- Chained access is essentially duplicate key access. This is 
the type of access for which IMAGE is very well suited. 


~ Calculated access is for Master data sets only. 


references: 





using IMAGE 


Serial Access 


m reads sequentially through MASTER or DETAIL 
@ can read forward or backward 
@ useful to retrieve all or most of data in a data set 


—™ use it to copy data to MPE file for subsequent 
sorting a ) 





detail 





a ) Beret) 
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notes: 


- This access type reads records in the order they are stored 
in the data set. 


- Empty records are skipped. 


references: 





using IMAGE 


Directed Access 


master 


\4 


ACE Inc 1=~—___________ Mf read entry by its position in data set 


yonn Doe} / 3rd record 
m@ when accessing masters — records 
may move 
@ avoid unless you have exclusive 


access 


: 


or 


™ may access empty entry 






@ useful only if record number has 
3rd record previously been determined 


@ fastest access method 


detail 


Ce mackano 
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notes: 


- This type of access can generate serious errors if used in a 
shared environment where adds and/or deletes can change the 
location of particular records. 


~- Note that IMAGE re-uses the space freed by delete records. 


references: 





using IMAGE 


Chained Access 


detail 









@ locates entries in ‘‘chain’”’ with the 
same search item 


m@ must first locate “chain head” in 
3 master 
master @ useful for locating related events 
m@ chains on primary key loaded in 
chronological order 


~- may change since IMAGE re-uses 
space from deleted items 







ACE Inc. 
95| XYZ Co. 
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notes: 


- Chains can be followed forward or backward. 


- Note that this is basically a duplicate key search, the type 
of access for which IMAGE, unlike KSAM, is very well suited. 


- Chain order of a primary search item can be physically main- 
tained by reloading data. 


references: 





using IMAGE 


Calculated Access 


master only 
XYZ Co. 


m@ locate entry with particular value 





———— 5 useful for fast retrieval of data for 
particular use 


- find customer name/credit rating 
- find stock number/amount in stock 


ACE Inc. 
John Doe 






get “Ace Inc.” 


m@ best for manual master where entry 
contains data in addition to search 
item. 


HEWLETT 
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notes : 


~- This type of access is only for master sets where search 
item must be unique. 


references: 


using IMAGE 


Locking Strategies 


@ IMAGE allows locking 
e of the entire data base 
e of individual data sets 


e of individual entries 
- by item value 


HEWLETT . 


nent ED | PACKARD | 
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notes: 


~ IMAGE locking, unlike MPE and KSAM locks, is enforced; 
it is more than a gentleman's agreement. When the data base 
(or data set or item) is locked, no other user can ignore the 


lock. 


references: 





using IMAGE 


1) DATA BASE LOCKS 
Cc 7] 
/ rer Lock _] 
ber > Lock] 


™@ avoid for long transactions 


™ saves lock/unlock overhead 


HEWLET) 
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notes: 


- This type of lock uses the least overhead to apply, but all 
sharing users must wait until the data base is released 
before they can access it. 


~ Use it mainly if short transactions mean a short wait. 


references: 





using IMAGE 


@ LOWER LEVEL Locks 


@ data set locks 
‘cane 
| in data set A 
- lock 2 short transactions 
in data set B 


e allows concurrent locking within same data base 


e best for transactions in different data sets 


Cd eackano 
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notes: 


- This locking method requires more overhead. 


- Provides faster response, but only if concurrent locks are 
applied to different data sets. 


references: 





using IMAGE 


Q) DATA ITEM LOCKS | 





m every user should lock on same item 









exampie: 
entry in SALES 
__acet _|stock#] | | J Gata set 
| lock unlock 
same item 
lock * . Mnlock allows 
/ me L concurrent lock 
user B 
: unlock 
user C | ks _ _____ Wait, _ ane sales: stock # = 154 : - 


request lock 





HEWLETT 
(| PACKARD 
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notes: 


- This locking scheme allows concurrent access to the same data 
set, but only if the locks are applied to the same item. 
Otherwise, the entire data set must be locked since there is 
no way to tell that the two different item values are not in 
the same entry. 


references: 





using IMAGE 
Deleting Entries 


@ unlike KSAM, IMAGE re-uses space from deleted entries 
BUT | | 
m@ when entries inserted into free space: 


e loses benefits of chain | 
e can effect access time when across blocks 





block 1 
chained after 
entries deletions 
in and 
block 2 original subsequent 
order insertions 
block 3 
eis 4 | HEWLETT 
v.92 PACKARO 
notes: os 





references: 





using IMAGE 


IMAGE Utilities 


used by Data Base Administrator to: 
e create data base 


@ maintain data base 
- backup to tape (store/restore data) 
- restructure (unload/reload data) 
- monitor activity (logging) 
— recreate data from log tape (recover) 
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notes: 


- Loading data must be done programmatically (only reloading 
provided through utility) except for small volumes of data 
that can be loaded on-line with QUERY. 


- All data base access is also programmatic, unless QUERY is 
used for small-scale inquire or update. 


references: 





using IMAGE 


Tips on Using Image 


@ open file with the least capability that allows all concurrent 
users to function ar: 





e open/close infrequently 











oF 

@ use appropriate access mode for task 

@ lock at lowest level that satisfies all users — 
e at entry level, lock on same item 

m reload data if very changeable Oe ae 
e to compact chains acide ey 4 
e avoid disc fragmentation ~ an Bo oe OO 

? an . ts “ A 
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notes: 


- When coding IMAGE calls, reference data items by name once, 


to preserve data independence, then use the item number to 
save time. 


~ Use an * to back reference named items, but avoid using @ 
to mean "all items" since data base may change. 


references: 


using IMAGE 


WORKSESSION IV - 8 


od eackano 
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notes: 


references: 


Worksession IV-8 (using IMAGE) 


Suppose you are the only user of the system and want to retrieve information from the data 
base, compare it with some data in your program and then update a non-key item. Would you 
open the data base for: 


a) exclusive read access 

b) read access allowing other users to read also 

c) read access allowing other users to modify the file 
d) update access allowing other users to update also 
e) exclusive modify access | 
f) modify access allowing other users to read 

g) modify access allowing other users to modify also? 


Explain your answer. 




















Using the same list, how would you open the file if other users planned to read the data base? 
Explain. 























Using the same list and the previous scenario, how should the other users open the data base? 
Explain. 





Worksession IV-8 (cont.) 


If you want to retrieve data associated with a particular search item in a master data set, what 
access mode would you use? Why? 


a) 
b) 
c) 
d) 


serial 
directed 
chained 
calculated 


eran eemer re 
SS LL ee rth renee, 
eee nL A ETC A ere restonenpusenedppreninnununnasresepentsneeee 
A 
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If you want to locate all entries with a particular order number (the order number is a search - 
item), what access mode would you choose? Explain. 


nr eer ee E 
; 


In this same situation (question 5), which data set(s) would you access? Why? 


a) 
b) 
Cc) 


a detail data set 
a master data set 
a master and a detail data set 


So perenne ere 
— eee 
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Worksession IV-8 (cont.) 


7. Suppose there are 15 concurrent users of the same data base, all users need to access the same 
data sets, and these accesses may include verification of data and subsequent changes. What 
level of locking would you choose? Why? 


a) data base level 
b) data set level 
c) data entry level 


8. Is there anything you can do to make the locking strategy you chose more efficient? 
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IMAGE INTERNAL STRUCTURE | 


m Media records 
m@ Synonym chains 
m@ Sorted chains 


m@ IMAGE as asetof files 


HEWLETT 


notes: 


references: 


eer nn 


IMAGE structure 
Media Records 
@ include chain/path control information plus actual data 


e for master data sets 
5 words 5 words 5 words 


synonym 
chain, head| 1st path 2nd path 
or link chain head | chain head 
e for detail data sets 


1st 1 path 2nd | path 
backward ; forward | backward! forward 
pointer ! pointer pointer ! pointer 
WL a NA LT , T 


4 words 4 words 









ean 


8 
4 record 
§ number 
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notes: 


-~ In master sets, media records define chain heads, including 
"synonym" chain head. 


- In detail sets, media records contain backward and forward 
pointers for every chain. 


- When data base is highly structured, pointers in media record 
may be longer than actual data entry. | 


references: 


Eee 
| IMAGE structure 


Synonym Chains 


™@ cause migrating secondaries 


| 
1 
Q. 
@ 
D 
|” 
” 
° 
cy] 
3 
es 
5 


m what if same address is calculated for several unique 
values? 


try to put entry here —> 


rel ist 2nd 


| f 
1st 2nd 
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an entry is already here 





an entry is here too 


now set up new linkage 
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notes: 


- The algorithm used to calculate the entry location in a master 
data set uses two variables you can control: the search item 
value and the number used to specify the data set capacity 
(how many entries are expected). 


references: 





IMAGE structure 
Long Synonym Chains 
m™ caused by many entries directed to same address 


@ make access slower 


™@ adds/deletes much slower 


reduce number of synonyms by: 
@ allowing 20% extra space in master 
® use prime number for master capacity 


e use ASClil-type search keys or integers 
with random values 
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notes: 


- Access is slower because the chain must be followed to locate 
the correct entry. This takes time and may mean extra disc 
I/O. 


- Adds and deletes are even slower since the synonym pointers 
must be modified once the correct location is found. 
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IMAGE structure 


Sorted Chains 


m keep sorted chains SHORT 
~- unless chain is static or 
- used primarily for inquiry 


@ put sort items at end of entry | 
- all items following sort item included in sort 


Co} eackanc 
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notes: 


~ IMAGE is not designed to manage long sorted chains. It is 
particularly time-consuming to add or delete sorted entries. 
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IMAGE structure 


Add a Sorted Entry 






chain head 
A) C L F_ key data 
TT 100 master 
detail 


what pointers must be modified? 





LETT 
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notes: 


- Each of the shaded pointers must be modified; these are the 
count in the master set, the forward pointer logically 
preceding the new entry, and the backward pointer logically 


following the new entry. For an unsorted entry, only the 
count need be modified. 


If the pointers that must be changed are in different blocks 
more disc I/O is required. 


references: 





IMAGE structure 
Put Sort Item At End 


m to reduce sort overhead 


pointers search unsorted sort sort 
B F_ key data item order 
|ADAMS | 4 
|GREEN| 2 
3 





extended sort field 
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notes: 


~ The extended sort field does allow subsidiary sorts. In 
effect, items following the sort items are minor keys. 
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Design Tips to Improve Performance 


SORT ITEMS ® avoid them, but, if necessary 
- sort only sets with few values 
- put sort items at end of entry | 


CAPACITY e make it realistic to save disc space, 
: then add 20% for master data set 


e make master set capacity a prime 
number 


SEARCH ITEMS e use type ASCII items, if possible 
e if integer, use random valued items — 


| A 
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notes: 


references: 


ot 


IMAGE structure 


IMAGE As a Set of Files 


M@ consider blocksize i 
@ can only be changed at create time | 
e depends on type of usage 


™@ consider number of buffers Ee WS 
@ can be changed at-each OPEN ~.<\. ~~ 
® increase for loading 
, Bere i . 
ae. 
a girs 
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notes: 


references: 





IMAGE structure 


BLOCKSIZE 
m default generally yields good performance 


m increase or reduce size for special purpose 


applications 
e few users in batch mode 
LARGE @ memory is available 
BLOCKS ® most access is serial or chained 


(and chains are compact) 


6 many users in session mode | 
Ficoll _ @ application is large, memory limited 


@ most access is direct or calculated 


| @ HEWLETT 
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tes: 


- Default is particularly suited to multi-purpose applications. 
Consider other block sizes if your application is devoted to 
one particular type of access. 


ferences: 





IMAGE structure 
Blocks and Chained Reads 


m@ IMAGE assigns contiguous storage to entries in a primary 
path 


m™ RELOAD to force primary chains into contiguous locations - 
avoid crossing block boundaries 


chained j 
Sk = Ger 
» 


_ before reload after reload — 
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notes: 


- Sort entries by primary search item value for initial load. 
IMAGE maintains this order at each reload, making items in 
primary chain contiguous. 


~ Lots of adds and deletes wreak havoc with this order because 
freed space is re-used. So, reload if this occurs. 


~- Reload only helps the primary chain. This is why the primary 
path should be selected with care. 


references: 





IMAGE structure 


BUFFERS 


m global for shared access 


data 
base 





| local [local | local 
block block block 


block 







. 





ge 
ears | 
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notes: 


~- IMAGE writes buffers to disc after every write or rewrite or 
deletion. Thus, it does not have true buffering. 


An output deferred option provides true buffering since 

it does not write buffers to the file until they are full. 
But, it can only be used in an exclusive environment when 

no other users are sharing the data base. Deferred output 
can be very useful to speed up after hours updates when only 


the update process is accessing the data base. 


references: 





IMAGE structure 
How Many Buffers? 


e increase number of buffers 
for loading data for batch 
jobs 


| e@ decrease number of buffers 
| | if memory size limited 


@ experiment! 


expandable data 
buffers 


DBCB 
(an extra data segment) 
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notes: 


- The data base administrator links the number of buffers to 
the number of users. 


- The default is based on the number of search items plus the 
number of users. 


references: 
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WORKSESSION IV - 9 
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notes: 


references: 


Worksession IV-9 (IMAGE structure) 


- 


pe 
Given a data base with Y data sets, one master{M), and two details (D1 and D2), with the following 
characteristics: , 


M1 is an automatic master with 
1 search item, 
-no data items. 


M2 and M3 are manual masters with 
1 search item each, 
1 data item each. 


D1 is a detail with 
1 search item linked to M1, plus 
20 data items. 


‘D2 is a detail with | 
3 search items, plus 
_12 data items, including 
1 sort item. 





Draw a diagram to illustrate this data base. Then answer the following questions. 


1. Which of the two detail data sets (D1 or D2) will be faster to modify? Give your reasons. 





_— OO 


2. How many words are needed for each data set, in addition to the actual data? Explain. 


a 


pV pas oe 
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Worksession IV-9(cont.) 


Suppose the sort item is the customer’s last name; what can you do 


A. to make sorted retrieval easier? 








How can you make a chained read of the set D1 easier? 


+ ; \ ‘ r 
i fe ae a cee eZ Y 3 5 Me ‘gt Perce) 
: fas weg iow i. ; Fa ne ae we + A oy OF oe ficou Bee. “ ye 
av é fp ae yf 7 ae siete at ee ee eee ee ee eS ane ue gt 


empnnaent Nema at Consent Hara 














Will this same technique work for D2? Explain. 














What problems can you expect if the capacity of M1 is the nearest even number to the total 
expected number of entries, and the primary search item is a number that increases in 
increments of 1? Explain. 
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| QUERY | 


m What QUERY does 
m When to use QUERY 


©} eackano 
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notes: 


references: 


QUERY 
Quick Retrieval 


- QUERY provides: 


® non-programmatic, interactive access to data in an 
‘IMAGE data base 


FIND: all males with 
red hair 
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notes: 


- QUERY is excellent for quick and highly specific on-line 
retrievals; it can look in any data set to locate entries 
that fit the specified criteria. 


references: 


QUERY 


Flexible Reporting 


_ QUERY lets you format reports 


12/20/80 
XMAS CARD LIST 
by department 


eee amp department: 723 
name address 
Mary Walker 






report offline 
H1; date 
H2; “XMAS CARD LIST” 





John Wilkes» 


@ best for impromptu, one-time reports 


| YD | HEWLETT 
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notes: 


- Avoid using QUERY as your daily reporting mechanism. It is 
too general purpose to be efficient. Write a specific 
reporting routine to cut down on overhead. 


references: 





QUERY 


Low-Volume Modification 


QUERY allows you to add or delete an entry or modify 
an existing entry 


change 
“1234” 
to “ABCD” 


@ good for debugging and testing 


| Q HEWLETT 


PACKARD 





IV-113 


notes 


- Any regular, large-scale data base modification should be 
done programmatically in order to be efficient. 


- QUERY is good for correcting small amounts of data, for testing 
changes, for verifying the structure during data base design. 


references: 





QUERY 


Access Mode 


m exact mode not easily predicted 


serial read chained read 
@ may look at @ may have multiple 
entire file chained reads 


HEWLETT 
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1V-114 . 


notes: 


~ Chained read uses more resources than serial read. 


~ QUERY uses serial read for non-key items, single key items, 
approximate items. For example: 
FIND NON=KEY="BLUE"; FIND KEY>100; 
FIND KEY=20 OR NON-KEY="BLUE" 
Each causes a serial read. 


~ Chained reads are chosen for multiple keys. For instance, 


FIND KEY = 1,2,3, causes 3 chained reads; 
FIND KEYA = 1 AND KEYB = 2 causes 1 chained read on KEYA. 


references: 





QUERY 
Locki king 


™ QUERY locks entire data me for every FIND or REPORT 


@ application A needs to 
lock data set 


sommeroraamamaa : 
® applications B and C 
@ while need to lock entries in 
QUERY user another data set 
FINDS an item 





and REPORTS 
e all others WAIT! 
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ytes: 


- The entire data base is locked unless QUERY is told to set. 
Locking OFF completely. This differs from user applications 
that can lock a data set or data entry. 


ferences: 





QUERY 


QUERY vs. User Application 
a QUERY is general-purpose — not optimized for 
specific use | 
- works on any data base 
- works with any data sets 


m USER APPLICATION preferable for 
- regular reports 
- fast, streamlined access 
- large-scale data entry, modification 
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A PACKar 
IV-116 
notes: 7 
a 
ab 
- a 
a \ 
) é KO 
Oy ‘ yp Pi 
: oo 
AN ae 
y 
a 6 Ae 
a 
\] 
i 
% 4 <j 
aa 


references: 


- QUERY 


DEMONSTRATION 
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notes: 


references: 
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SUMMARY 


m@ when to use MPE files 
m when to use KSAM files 


m when to use IMAGE 


~ CAD packaro 
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notes: 


references: 


ce ec EE 
summary 


When to Use MPE Files 


m for logging and backup files 
m when you expect to access entire file 


@ for ‘transaction’ files 


-— collect on-line updates to MPE file 
~ transfer to structured file (KSAM or IMAGE) as a 
batch job : 


m™@ for large-scale sorts 
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notes: 


references: 





summary 


When to Use KSAM 


™ require flexible key retrieval 
- generic or approximate keys 
- actual keys 


@ need data sorted in variety of ways 
- by primary or alternate key 
— in chronological order 


@ simple arrangements of data 
- not-hierarchical 
- no complex relations 


@ system 3 conversions 
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notes: 


references: 


summary 


When to Use IMAGE 
@ if your application uses many files, consider consolidating 
data in data base 
@ need to retrieve many duplicate values 
@ need separate security for different user types 


@ need QUERY 
~ for fast, structured reports 
- for debugging 
—- for low-volume data entry 


a need locking at entry level as well as at data set or data base 
— level | 
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notes: 


references: 
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SUMMARY 


m Design checklists i. ty eos 
~ code & data segments - ~~ 
— processing eptiens 
— terminal options 
_- data management options 


m@ Final remarks 


|G HEWLETT 
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notes: 


references: 





design checklists 


CODE SEGMENTS| 


™@ stay in segment as long as possible — then stay out as 
long as possible 


m keep segments approximately the same size 
m@ avoid very large segments 


m@ put seldom-executed code in a separate segment 


aay ewer? 
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notes: 
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design checklists 


DATA STACK 


m keep total stack as small as possible 


@ keep global area small — use dynamic area where 
possible 


@ shrink stack following unusual growth 


@ avoid unexpected stack growth 


aay newest 
EE PACKARD 
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notes: 


references: 


design checklist 





LIBRARIES 


aa) 
pire J 
4 
“ema 

S 


| use Relocatable Libraries (RLs) for small, 


special-purpose routines private to the program 


mm use Segmented Libraries (SLs) for large, universal 
routines shared by many programs 


V-4 
notes: 
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design checklists 


PROCESS OPTIONS 


M@ use single process 


- to simplify development & testing 
- for small applications 
- with dynamic subprograms 


m™ use parent/child process | 


- to reduce stack size 
- to isolate end-user from system 
- for large/complex applications 


Bo Boar 
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notes: 


references: 


design checklist 


LANGUAGES | 


[\.¢ Lofs ; 
te ‘eo A i ee 


— 


—— in i oe ai - 


use COBOL for applications with more I/O than computation 


use FORTRAN for applications that need efficient 
computation, little I/O | ? | 


m use BASIC for applications that manipulate strings,arrays 


use RPG for batch-applications with reports - conversions 
from RPG machines | 


—/™ use SPL for special-purpose routines within larger 
application 


e ‘use APL for array manipulation 


V6 ; 


notes: 


references: 





design checklists 


TERMINAL COMMUNICATIONS 


™@ use character mode if 


—- small amounts of terminal input 
- terminal input determines program flow 


@ use block mode for 


— masses of terminal input 
- data entry applications 
— cntri-Y or break not needed 


m use V/3000 for 


~ on-line edits 
- easy block mode development 


Ce} eackann 
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notes: 
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design checklist 


mak 


A) 
So 
“3 
3 
1] 
3 


keep field specs short- use concise edits 
avoid re-painting screens 


open 1 forms file at a time 


execute with fast forms file 


HEWLETT 
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notes: 


references: 


spe a SS 


design checklists 


FILE SYSTEM 


—@ use small blocks for random access, 


aw large blocks for sequential access 
rs \ 
fy ' Hf use single buffer for random access, 
Sav: f two buffers for sequential access 
af 7 no buffers for fast multirec transfers 


open and close files infrequently 





lock if any sharing user changes file but — try to 
design so locks are unnecessary 





ad Packaro 
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notes: 
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design checklists 


KSAM 


use KSAM for sorted, sequential access 

avoid keys that have many duplicate values 
; use as few keys as possible 
f 


select keys that don’t change 


shared access requires locks around all transactions 


C4} eackano 





notes: 
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design checklists 


IMAGE 


im use IMAGE 


- for multi-file applications 
- for data with long duplicate chains 


™@ avoid sorted chains 
™@ use as few paths as possible 


Hi allow 20% extra capacity for master sets (and use 
prime number) | 


m@ lock at lowest level that provides 


=< concurrent access to most users without too 
much overhead | 
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notes: 


references: 
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design checklists 


QUERY 


m use for quick, one-time reports 
@ use to test and debug data base access 


@ avoid QUERY for 


- regular reporting | 
— large scale data entry or retrieval 
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notes: 


references: 





General Rules 


do you really need that file? that module? 


put design effort where it counts 
- 80/20 rule 


M@ consider when a task is needed 
- can it be batch? off hours? 


— remember that others use the system 
- don’t be a hog 





CO aren 
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notes: 


- 80/20 - 80 percent of the overhead occurs in 20 percent of 
the code; So, put 80 percent of your design effort 
in that 20 percent of the code. 


references: 
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@ what do you really want? 


EFFICIENCY 


FAST FLEXIBLE 
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notes: 
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notes: 


references: 


APPENDIXA 


Source Listings 


1, 


Shrink Stack Examples 


SPL subprogram 
FORTRAN example 
COBOL example 


$CONTROL SUBPROGRAM 
BEGIN 
PROCEDURE SHRINKSTACK(SIZE,/CC); 
INTEGER SIZE,CC3 
BEGIN 
INTRINSIC ZSIZE} 
SIZE: 2ZSIZE(SIZE)} : 
IF <> THEN CC3s"1 ELSE CC:=0} 


END} 


PROCEDURE STACKSIZECSIZE): 
INTEGER SIZE 
BEGIN 

PUSH(Z)3 

SIZEs:zTOS; 


END; 


A 
; 


END, 


aa 


AANAN 


ANAAAA AAANAN 


FORTRAN Example using STACKSIZE and SHRINKSTACK 


PROGRAM MAIN 
INTEGER #2 SIZE,CC 


Other data declarations could go here 
Begin main code 


CALL STACKSIZE(SIZE) 
CALL BIGSUB(X,Y¥,2Z) 


Where BIGSUB is a sUbprogram that uses a lot of the local 
stack, 


CALL SHRINKSTACK(SIZE,CC) 


This returns the stack to the size it was before BIGSUB 
wag called, 


End of FORTRAN example, 


STOP 
END 


*# Sample COBOL routine using STACKSIZE and SHRINKSTACK 
% 
. 

DATA DIVISION, 

WORKING*STORAGE SECTION, 


01 STACKeSIZE PIC §9(4) COMP, 
O01 CONDITION*CODE PIC §9(4) COMP, 


PROCEDURE DIVISION, 


* Begin processing here, 
B100=SUB, 


CALL "STACKSIZE" USING STACKeSIZE, 
CALL "BIGSUB”" USING PARMX, PARMY, PARMZ, 


* 


Where "BIGSUB" is a subprogram that uses a lot of 
storage in the local area of the stack, 


* & 


CALL "SHRINKSTACK" USING STACK*SIZE, CONDITION*°CODE, 


This returns the stack to the size it was when 
"STACKSIZE" was called, 


sexes & & 


End of COBOL example. 


2. DOemonstration II=-1 Listings 


Stream file 
Source files: 
PDEMO1P 
ERRORSUB 

PMAP 


OD~I Hn AM & Wh 


10 


!JOB DEMO,DESIGN 

LPURGE PDEMOLP 

IPURGE UDEMO1U 

{FILE COBTEXT3SDEMO1S 

!FILE COBUSL=UDEMO1U 

!FILE COBLISTS$NULL | 

JRUN COBOLII.PUB,SYS;PARMs5 

IFILE COBTEXT=ERRORSUB 

!RUN COBOLII.PUB,SYS;PARM=5_ | 
{PREP UDEMO1U, PDEMO1P;MAXDATA3110003PMAP 
{SAVE PDEMO1P , 
tEOJ 


SCONTROL LIST, USLINIT, MAP, 
IDENTIFICATION DIVISION, 
PROGRAM*=ID, demol,. 
AUTHOR, ¢t3000, 
DATE*COMPILED, 
ENVIRONMENT DIVISION, 
DATA DIVISION, 
WORKING@STORAGE SECTION, 
77 erroreflag 
77 exiteflag 
77 = record-was-found 
O1 buffer, 

05 FILLER 

05 buteminuse-ord 
O1 image-fields,. 

05 dbename 

0S listeofeitems 

0S password 


05 model 
05 modes 
05 mode? 


OS searcheitem 

05 dedata-set 

05 medataeset 

05 dbestatus,. 
10 cond-word 
10 FILLER 

O01 vebuffer,. 

05 ordenum 

05 ordenumedisplay 

0S medset-buffer, 
10 custename 
10 custestreet 
10 custecity 
10 cust-state 
10 custezip 
10 custephone 
10 purcheord 

05 dedset-buffer, 

10 quantity 

10 partenum 


10 dese 
10 untemeas 
10 price 


01 =formebuffer 
REDEFINES vebuffer 

O01 v-parameters. 

05 form-fileename 

05 term-name 

0S pbuf-length 

05 message-buf 

05 msgelength | 

0S actualelength 
01 fieldebuf, 

05 orderenumber 

05 ord=numelenath 
O01 erroremessage 


SOURCE 


pic 


‘pile 


PIC 


PIC 
PIC 


PIC 
PIC 
pic 
PIC 
PIC 


PIC 


PIC 
PIC 
PIC 


PIC 
PIC 


PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 


PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


$9(04) 
$9(04) 
$9(04) 


X(08), 
X(82). 


X(10) 
X(02) 
X(06) 
$9(04) 
$9(04) 
$9(04) 
X(08) 
X(10) 
X(10) 


S89(04) 
X(18). 


X(08). 
X(08). 


X(20). 
X(20), 
X(16). 
X(02),. 
X(06). 
X(10),. 
X(08). 


9(04). 
X(08). 
X(30). 
X(02). 
9(06). 


X(148), 


X(10) 
X(08) 
S9(04) 
X(72). 
$9(04) 
59(04) 


X(08). 
S9(04) 
X(28). 


COMP VALUE O, 
COMP VALUE 0, 
COMP VALUE 1, 


VALUE " ORDRET; ", 
VALUE "@;", 

VALUE "MGR; ", 
COMP VALUE 1, 

COMP VALUE 5, 

COMP VALUE 7, 

VALUE "ORD-NUM;", 
VALUE "ITEM@DET; "*, 
VALUE "ORD©MSTR; ", 


COMP, 


VALUE “ORDFORM1; *, 
VALUE "A264X ", 
COMP VALUE 148, 


COMP VALUE 72, 
COMP, 


COMP VALUE 8, 


Oi err-messSage=length PIC S89(04) COMP VALUE 28, 
Oi cComaread, 


0S vstatus PIC S9(04) COMP VALUE ZERO, 
05 language PIC S$(04) COMP VALUE ZERO, 
05 ‘comarea-length PIC S9(04) COMP VALUE 60. 
05 FILLER PIC S9(04) COMP VALUE 0, 

05 FILLER PIC 89(04) COMP VALUE 0, 

0S last-key PIC S9(04) COMP, 

05 FILLER . PIC X(108) VALUE ZEROS, 


PROCEDURE DIVISION, 
al00estart SECTION 10, 
PERFORM €100°einit THRU c100°initeexit, 
IF error-flag NOT EQUAL TO O 
, GO TO bid0eexit, 
PERFORM e100emain THRU e100emain-exit, 
PERFORM di100°¢lose THRU di00-close~exit, 
biodeexit, 
IF erroreflag NOT EQUAL TO 0 
CALL "ERPRORSUB® USING 


erroreflag, 
STOP RUN, 
% a 
*END OF ORDER RETRIEVAL PROGRAM 
* . 


ciod00einit SECTION 15, 
PERFORM c200"opendb THRU c200eopendb-exit. 
IF error=flag NOT EQUAL TO 0 
. GO TO ci00-init-exit. 
PERFORM c300"openform THRU c300°0penform-exit, 
IF errere-flag NOT EQUAL TO 0 
GO TO cid@-init-exit, 
PERFORM c4QQ0"openterm THRU c400-cpenterm-exit, 
c100°initwexit,. 
EXIT. 
# 
®RETURN TO 2100<start 
% 
c200"0opendb. 
CALL “®NBOPEN® USING 
db-namé» 
password, 
model, 
dbestatus,. 
IF condeword NOT EQUAL TO 0 
CALL "DBEXPLAIN" USING dbestatus 
MOVE 1 TO érroreflag, 
c200°opendbeexit,. 
EXIT, 
e 
#RETURN TON c100-init 
% 
c300-openform, 
CALL "VOPENFORMF" USING 
comareas 
formefileename, 
IF vstatus NOT EQUAL TO 0 
MOVE 2 TO erroreflag, 


c300"0openformeexit, 
EXIT, 
% 
*RETURN TO c100"init 
# 
c400-openterm, | 
CALL "VOPENTERM" USING 
comarea, 
; termename, 
IF vstatus NOT EQUAL TO 0 
MOVE 3 TO erroreflag, 
c400-opentermeexit, 
EXIT, 
+ 
*RETURN TO ci100-init 
* 
d100-close, 
PERFORM d200"-closedb THRU d200-closedb-exit, 
IF error-flaq NOT EQUAL TO 0 
GO TO d100-close-exit, 
PERFORM d300-closeform THRU d300°closeform-exit. 
IF error-flag NOT EQUAL TO 0 
GO TO d100"°close-exit,. 
PERFORM d400ecloseterm THRU d400-closeterm-exit, 
d1i00°closeeexit, 
EXIT, 
*% 
*RETURN TO a100estart 
a 
d200-closedb. 
. CALL "DBCLOSE" USING 
dbename, 
password, 
model, 
IF condeword NOT EQUAL TO 0 
MOVE 4 TO erroreflag, 
d200-closedbeexit, 
EXIT, 
# 
*#RETURN TO d100eclose 
+ 
d300-closeform, 
CALL "VCLOSEFORMF* USING 
comarea, 
IF vstatus NOT EQUAL TO 0 
MOVE 5 TO erroreflagq, 
d300ecloseformeexit, 
EXIT, 
% 
*#RETURN TO dl00eclose 
% 
d400ecloseterm, 
CALL "VCLOSETERM”" USING 
comarea. 
IF vstatus NOT EQUAL TO 0 
MOVE 6 TO error-flaa, 


A-9 


d400-closetermeexit. 


EXIT, 
+ 
*RETURN TO di100-close 
# 


e100"main SECTION 20, 
CALL "VGETNEXTFORM" USING 
comarea, 
IF vstatus NOT EQUAL TO 0 
MOVE 8 TO errore-flag 
MOVE 1 TO exiteflag 
GO TO e100emaineexit, 
CALL "VINITFORM" USING 
. comarea, 
IF vstatus NOT FQUAL TO 0 
move 17 TO erroreflag 
move 1 TO exiteflag 
GO TO e100-main-exit,. 
CALL "VSHOWFORM" USING 
comarea, 
IF vstatus NOT EQUAL TO 0O 
MOVE 9 TO erroreflaqg 
MOVE 1 TO exiteflag 
GO TO e100-maineexit. 
PERFORM £100"°read THRU f£100°read-exit 
UNTIL exite-flag EQUAL TO 1, 
e100-maine-exit. 
EXIT. 
* 
*RETURN TO a100-start 
rt 
£100°read. 
MOVE 0 TO record-was-found. 
CALL "VREADFIELDS" USING 
comarea. 
IF vstatus NOT EQUAL TO 0 
MOVE 10 TO erroreflag 
MOVE 1 TO exiteflag 
GO TO £100ereadvexit, 
CALL "“VGETBUFFER" USING 
comarea, 
orderenumber, 
ord-numelength. 
IF vstatus NOT EQUAL TO 0 
MOVE 18 TO erroreflag 
MOVE 1 TO exit-flag 
GO TO £100ereadeexit. 
IF lastekey EGUAL TO 8 
MOVE i TO exiteflag 
GO TO £100°readwexit, 
MOVE orderenumper TO ord=num, 
ordenumedisplay, 
PERFORM £200efindord THRU f£200°efindord-eexit, 
IF erroreflag NOT EQUAL TO 0 
MOVE 1 TO exiteflag 
GO TO £100ereadeexit, 
IF recordewasefound EQUAL TO 1 
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MOVE SPACES TO erroremessage 
PERFORM £400-eprint THRU £400eprinteexit, 
£100"readeexit, 
EXIT, 
* 
*#RETURN TO e100°main 
+ 
£200°findord. 
CALL "DBGET" USING 
db=-name, 
medataeset, 
mode7, 
dbestatus, 
listeofeitems, 
buffer, 
orderenumber, 
IF condeword EQUAL TO 0 
MOVE 1 TO recordewas-found 
PERFORM £300°getord THRU £300-getord-exit 
ELSE 
IF condeword EQUAL TO 17 
“MOVE “order not found * TO erroremessage 
PERFORM paver ene THRU £400eprinteexit 
ELSE 
MOVE 11 TO erroreflag, 
£200°findord-exit,. 
EXIT, 
&% 
*RETURN TO £100°read 
# 
£300°getord,. 
MOVE Suromenuacord TO medset=buffer,. 
CALL "OBFIND" USING 
db-name, 
dedatae-set, 
model, 
ab-status, 
searcheitem, 
order-number, 
IF condeword NOT EQUAL TO 0 
MOVE 12 TO erroreflag 
GO TO £300"-getord-exit, 
CALL “DBGET" USING 
db-name, 
dedataeset, 
modes, 
dbe-status, 
listrofe{items, 
buffer, 
ordenum e 
IF condeword NOT EQUAL TO 0 
IF condeword EQUAL TO 17 
MOVE “order not found * TO error-message 
PERFORM £400"print THRY £400-print=exit 
GO TO £300°getord-exit . 
ELSE 
MOVE 12 TO erroreflag 
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GO TO £300"getord@=exit, 


MOVE bufeminuseord TO dedsetebuffer, 
f£300°getord-exit, 


EXIT, 


n° 


*RETURN TO €200°findord 


+ 


£400-print. 
IF recordewasetound EQUAL TO 1 


AND 


erroreflag EQUAL TO 0 


ELSE. 


CALL "VPUTBUFFER" USING 
comare@as 
form-buffer, 
bufe-length 
IF vstatus NOT EQUAL TO 0 
MOVE 15 TO erroreflag 
MOVE 1 TO exiteflag 
ELSE 
NEXT SENTENCE 


MOVE SPACES TO medsetebuffer, d-dsetebuffter 
CALL "VPUTBUFFER® USING 
comarea, 
form-buffer, 
buf-length 
IF vstatus NOT EQUAL TO 0 
MOVE 15 TO erroreflag 
MOVE 1 TO exiteflag 
GO TO £400°print exit 
ELSE 
CALL "“VPUTWINDOW" USING 
comarea, 
e@rror-message, 
err-message-length 
IF vstatus NOT EQUAL TO 0 
MOVE 16 TO errorefilag 
MOVE 1 TO exiteflag 
GO TO £400-printeexit, 


CALL "VSHOWFORM* USING 


comarea, 


IF vstatus NOT EQUAL TO 0 


MOVE 1 TO exiteflag 
MOVE 9 TO error-flag 
GO TO £400eprinteexit, 


MOVE SPACES TO erroremessage, 


CALL 


"VPUTWINDOW" USING 
comareéa,s 
erroremessage, 
erremessagew-length, 


IF vstatus NOT EQUAL TO 0 


MOVE 16 TO erroreflag 
MOVE 1 TO exiteflag, 


£400-printeexit, 


EXIT, 


SCONTROL LIST, SUBPROGRAM, DYNAMIC 
IDENTIFICATION DIVISION, 
PROGRAM*ID, ERRORSUB, 
AUTHOR, ct3000,. 
ENVIRONMENT DIVISION, 
DATA DIVISION, 
LINKAGE SECTION, 
O1 erroreflag PIC S9(04) COMP, 
PROCEDURE DIVISION : 
USING erroreflag, 
aid0estart, 
GO TO el, C2, @3, e4, e5, C6, e7, C8, 9, @10, ell, e12, 
e13, e14, e15, e16, e17, e18 
DEPENDING ON erroreflag. 
el. 
DISPLAY “dbopen failure" 
GO TO endeofe-sub. 
@2- 
DISPLAY “vopenformfé failure". 
. GO TO endeofesub, 
e3, 


DISPLAY "“vopentermfé failure", 
GO TO end-of-sub, 

e4, 
DISPLAY “dbclose failure", 
GO TO endeof-sub,. 

es. 

DISPLAY "“vcloseformf failure". 
GO TO endeof-sub, 

e6. 
DISPLAY “vcloseterm failure", 
GO TO endeofesub, 

e7. 
DISPLAY "vopenformf failure", 
GO TO ende-of-sub. 

eb, 
DISPLAY “vgetnextform failure", 

GO TO end-of-sub, 
eo, 


DISPLAY “vshowform failure". 
Go TO endeofesub, 


0. 
DISPLAY "vreadfields failure", 
GO TO end-of-sub,. 
ell, 
DISPLAY "dbfind failure", 
GO TO end-ofesub, 


Ze 
DISPLAY "“dbget failure", 
Go To endeofe-sub. 


3e 
DISPLAY “startsetup failure". 
GO TO endeof-sub. 
ei4, 
DISPLAY "endsetup failure", 
GO TO endeofe-sub. 
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e15,. 


DISPLAY "vputbuffer failure", 
GO TO endeofesub, 
e16, 
DISPLAY "vputwindow failure", 
GO TO endeofesub, 
ei7,. 
DISPLAY “vinitform failure", 
GO TO end-ofesub, 
e18, ; 
DISPLAY “vgetbuffer failure", 
GO TO endeofesub, 
end°of-sub, 
MOVE 0 TO erroreflaq, 
GOBACK, 
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PROGRAM FILE PDEMO1P,DEMO,DESIGN 


ERRORSUB 0 
NAME STT CODE ENTRY SEG 
ERRORSUB 0 0 
C°DISPLAY’FIN 
C°DISPLAY°INIT 
C*DISPLAY’L 
QUIT 
ERRORSUB*S 0 1071 
ERRORSUB’ 1076 1076 
SEGMENT LENGTH 1314 
E100MAIN20° 
NAME STT CODE ENTRY SEG 
ELQ00MAIN20° 1 0 0 
VGETNEXTFORM 3 
VINITFORM 4 
VSHOWFORM 5 
VREADFIELDS 6 
7 
10 


WHOA UW & = 
WV Vow 


bub 


VGETBUFFER 

DBGET 

DBFIND ii 

VPUTBUFFER 42 

VPUTWINDOW 13 

QUIT 14 

demot 2 167 7167 

DEBUG i5 

COBOLTRAP 16 

ALOOSTART10° 17 

CLOOINITIS® | 20 

SEGMENT LENGTH 1224 
CLOOINIT15° 2 

NAME STT CODE ENTRY SEG 

CIOOINITIS? 0 0 

DBOPEN 

DBEXPLAIN 

VOPENFORMF 

VOPENTERM 

DBCLOSE 

VCLOSEFORMF 

VCLOSETERM 

SEGMENT LENGTH 300 
A1OOSTART10° — 3 

NAME STT CODE ENTRY SEG 

ALOOSTARTIL0? i 0 0 

ERRORSUB 2 0 

TERMINATE ?% 3 ? 

SEGMENT LENGTH 60 


ee ee ee ee ee ee ee 


oD Ul & Ww A 
OW ow) OD Oe) OW) OW) 


cs 


PRIMARY DB 0 INITIAL STACK 2000 CAPABILITY | 600 
SECONDARY DB 546 INITIAL DL 0 TOTAL CODE 3120 
TOTAL DB 546 MAXIMUM DATA 25370 TOTAL RECORDS 26 
ELAPSED TIME 00300304 ,350 PROCESSOR TIME 00301 ,107 
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3, Demonstration IIl-1 Listings 


Stream file 

Source files: 
PDADP 
PDEMO2P 
SRTSETUP 
ERRORSUB 

PMAPS fors 
PDADP 
PDEMO2P 
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Oam~a A UW & W A) = 


!JOB DEMO,DESIGN 

'!PURGE PDADP 

§'PURGE UDADU 

'FILE COBTEXT=SDADS 

!'FILE COBUSLSUDADU 

!tFILE COBLIST=sSNULL 

{RUN COBOLII.,PUB,SYS:PARM=5 
!PREP UDADU,PDADP:PMAPsCAP=PH 
§!SAVE PDADP 

!PURGE PDEMO2P 

'PURGE UDEMO2U 

IFILE COBTEXT=SDEM02S 

!FILE COBUSL=UDEMO2U 

!FILE COBLIST=$NULL 

$RUN COBOLII.PUB,SYS;PARM=5 
'FILE COBTEXTSERRORSUB 

{RUN COBOLIT,.PUB.SYS}3PARM=5 
§!SPL SRTSETUP,UDEMO2U 

§!PREP UDEMO2U, PDEMO2P;MAXDATA=110003;PMAPsCAP=PH © 
SAVE PDEMO2P 
fEOJ . 
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SCONTROL USLINIT, SOURCE, 
IDENTIFICATION DIVISION, 
PROGRAM=ID, demo2dad, 
AUTHOR, ct3000, 
DATE*COMPILED, 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION, 


SOURCE*COMPUTER, HP3000, 
OBJECT-COMPUTER, HP3000, 
SPECIAL=NAMES, 


CONDITION-CODE IS cc, 


DATA DIVISION, 
WORKING@STORAGE SECTION, 


717 «exiteflag PIC S9(04) COMP VALUE 0, 
77 erroreflag PIC S9(04) COMP VALUE 0, 
77 terminateeflag PIC S89(04) COMP VALUE 0O, 
77° son PIC S9(04) COMP VALUE 1, 
77 maximum-sons PIC $9(04) COMP, 
77° =returnelength PIC S89(04) COMP, 
77) =pinenum PIC S9(04) COMP, 
01 programs Pc X(08) VALUE “PDEMO2P *, 
01 reply PIC X(03). 
01 pins, 
05 pinenumber 
OCCURS 3 TIMES 
PIC S9(04) COMP, 
01 Ildevenumber PIC S9(04) COMP, 
01 display-son PIC 2Z(04), 


PROCEDURE DIVISION, 
al00-start,. 
DISPLAY “ENTER THE NUMBER OF TERMINALS TO BE ACTIVATED", 
ACCEPT maximum-sons FREE 
ON INPUT ERROR 
DISPLAY “You must enter a number" 
GO TO ai00estart, 
PERFORM b100°create*sons THRU b100°createesons-exit 
UNTIL son > maximumesons, 
IF erroreflag NOT EQUAL TO 0 
GO TO a100estarteexit, 
PERFORM c100-printeupemessage 
THRU cl100eprinteupemessagerexit, 
IF error-flag NOT EQUAL TO 0 
GO TO a100estarteexit, 
MOVE 1 TO son, 
PERFORM d100-eactivateesons THRU d100-activateesons~exit 
UNTIL son > maximumesons, 
IF erroreflag NOT EQUAL TO 0 
GO TO a100-starteexit. 
PERFORM e100-"reply THRU e100°"reply-exit 
UNTIL terminate*eflag EQUAL TO 1, 
aiodO-start-exit, 
STOP RUN, 
% 
#END OF FATHER PROGRAM 
% 
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bi00ecreate-sons. 
MOVE son TO display-son, 
DISPLAY "Enter logical device number of terminal", 
display-sone 
ACCEPT ldevenumber FREE 
ON INPUT ERROR 
DISPLAY "You must enter a number for the terminal" 
GO TO bid0-create-sons, 
CALL INTRINSIC "CREATE" USING 
programs, 
\N\, 
pinenumber (son), 
ldevenumber, 
NIN. 
IF cc LESS THAN 0 
DISPLAY “unable to create son processes" 
MOVE 1 TO erroreflag 
MOVE 4 TO son 
GO TO bi00ecreateesons-exit, 
CALL INTRINSIC "ACTIVATE" USING 
\pinenumber (son) \, 
\N2Ne 
IF cc NOT EQUAL TO 0 
DISPLAY “unable to activate sons" 
MOVE 1 TO erroreflag 
MOVE 4 TO son 
GO TO b100«createesons-exit, 
CALL INTRINSIC “GETPROCINFO" USING 
\pinenumber (son)\,. 
IF cc NOT EQUAL TO 0 
DISPLAY “son process aborted" 
MOVE 1 TO erroreflag 
MOVE 4 TO son. 
ADD 1 TO son. 
bid0d0"create-sons~exit, 


EXIT, 
% 
*RETURN TO ail00estart 
# 


c100-printeUpe-message, 
DISPLAY "x## ALL TERMINALS UP sae", 
c100-printeup=messagerexit, 


EXIT. 
% 
*RETURN TO al00-start 
* 


didd0-activateesons. 
CALL INTRINSIC “ACTIVATE” USING 
\pinenumber (son)\, 
NON. 
IF ce NOT EQUAL TO 0 
DISPLAY "activation of son unsuccessful” 
MOVE 1 TO erroreflag 
MOVE 4 TO son. 
ADD 1 TO son. 
di00"activate-sonseexit. 
EXIT, 


# 
*RETURN TO a100-start 
% 
e100"reply. 
: DISPLAY “### RESPOND “YES° TO END PROGRAM #48", 
ACCEPT reply. 
IF reply NOT EQUAL TO "YES* AND 
reply NOT EQUAL TO "yes" 
GO TO e100-reply-exit, : 
CALL INTRINSIC "GETPROCID" USING 
NIN 
GIVING Pinenum,. 
IF pinenum EQUAL TO 0 
MOVE 1 TO terminate-flag 
GO TO e100°replyeexit, 
MOVE O TO exiteflag, 
PERFORM e200°reply2 THRU e200*reply2-exit 
UNTIL exiteflag EQUAL TO 1, 
e100°*reply-exit, 
EXIT, 
& 
*RETURN TO al00estart 
# 
e200°reply2, 
DISPLAY "“### SOME TERMINALS ARE STILL ACTIVE Lt A 
DISPLAY "“##* REPLY °YES* TO TERMINATE THEM ###", 
ACCEPT reply. 
IF reply EQUAL TO "YES" AND 
reply NOT EQUAL TO "yes" 
MOVE 1 TO terminate#flag 
ELSE 
MOVE 0 TO terminate-flag, 
MOVE 1 TO exit-flag, 
e200*reply2-exit, 
EXIT, , 
*% 
“RETURN TO e100-reply 
* 
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SCONTROL LIST, USLINIT,: MAP, 
IDENTIFICATION DIVISION, 
PROGRAM=@ID, demo2son, 
AUTHOR, ct3000, 
DATE*COMPILED, 

ENVIRONMENT DIVISION, 
CONFIGURATION SECTION, 


SOURCE*=COMPUTER, 4HP3000, 
OBJECT=COMPUTER, HP3000, 
SPECIAL@NAMES, 


CONDITIONeCODE IS ec, 
DATA DIVISION, 
WORKINGeSTORAGE SECTION, 
77 error-flag 
77 exiteflag 
77 record-was-found 
77° «=Callestat 
O1 buffer, 

05 FILLER 

05 pbuf-minus-ord 
O01 imageefields,. 

05 db-name 

05 listeofeitems 

05 password 


05 model 
05 modes 
05 mode7 


05 searcheitem 

05 dedata-set 

05 medataeset 

0S dbestatus, 
10 cond-word 
10 FILLER 

01 vebutfer,. 

05 ordenum 

05 ordenumedisplay 

0S medsetebuffer, 
10 custename 
10 custestreet 
10 custecity 
10 custestate 
10 custezip 
10 cust=phone 
10 purch-ord 

05 dedsetebuffer, 
10 quantity 
10 partenum 


10 desc 
10 untemeas 
10 price 


01 formebuffer 
REDEFINES vebuffer 
01 =veparameters,. 
05 formefileename 
0S term-name 
05 but-length 
05 messageebuf 


pic 
pic 
PIC 
PIC 


PIC 
PIC 


PIC 
PIC 
pic 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 


PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 
PIC 
PIC 


PIC 


PIC 
PIC 
PIC 
PIC 
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SOURCE, CROSSREF 


S9(04) 
S9(04) 
$9(04) 
$9(04) 


X(08). 
X(82). 


X(10) 
X(02) 
X(06) 
S9(04) 
§9(04) 
$9 (04) 
X(08) 
X€10) 
X(10) 


$9(04) 
X(18), 


X(08). 
X(08). 


X(20). 
X(20). 
X(16), 
X(02), 
X(06). 
X(10). 
X(08). 


9(04), 
X(08). 
X(30). 
X(02). 
9(06), 


X(148) 


X(10) 
X(08) 
S9(04) 
X(72). 


COMP VALUE 0, 
COMP VALUE 0. 
COMP VALUE 1, 
COMP VALUE 0, 


VALUE " OQORDRET; ", 
VALUE "@;3", 

VALUE "MGR; ", 
COMP VALUE 1, 

COMP VALUE 5. 

COMP VALUE 7, 

VALUE "ORDeNUM3", 
VALUE "“"ITEM=DET; ", 
VALUE "ORDeMSTR; *, 


COMP, 


VALUE “ORDFORM1; *, 
VALUE "A264X ", 
COMP VALUE 148, 


01 


01 
01 
01 


05 msgelength PIC S9(04) COMP VALUE 72, 


05 actualelength PIC S9(04) COMP, 

field-puf, 

05 orderenumber PIc X(08), 

05 ordenum=-length PIC S9(04) COMP VALUE 8, 
error=mesSsage PIC X(28). 
erremesSage-léength PIC S9(04) COMP VALUE 28, 
comarea,. 

0S vstatus PIC S9(04) COMP VALUE ZERO, 
05 language PIC S9(04) COMP VALUE ZERO, 
05 comarea=length PIC S9(04) COMP VALUE 60. 
0S FILLER PIC 589(04) COME VALUE O, 

05 FILLER PIC S9(04) COMP VALUE 0, 

05 lasteKxey PIC S9(04) COMP, 

05 FILLER PIC X(108) VALUE ZEROS, 


PROCEDURE DIVISION, 
aiOO-start SECTION 10, 


PERFORM ci100*init THRU c100"initeexit, 
IF erroreflag NOT EQUAL TO 0 

GO TO b100-exit, 
PERFORM e100*emain THRU e100maineexit, 
PERFORM di00eclose THRU d100-closeerexit, 


bidd0wexit, 


* 


IF erroreflag NOT EQUAL TO 0 
CALL “ERRORSUB" USING 
erroreflag, 
STOP RUN, 


*END OF ORDER RETRIEVAL PROGRAM 
* 


c100*°init SECTION 15, 


CALL "“STARTSETUP" USING 
callestat, 

IF callestat NOT EQUAL TO 0 

MOVE 13 TO error=flag 

GO TO c100"initwexit. 
PERFORM c200°opendb THRU c200-opendbeexit, 
IF error-flag NOT EQUAL TO 0 

GO TO ¢100°{initeexit, 
PERFORM c300*°openform THRU c300*openform=exit, 
IF erroreflag NOT EQUAL TO 0 

GO TO ¢100einiteexit, 
PERFORM c400eopenterm THRU c400*opentermeexit, 
IF erroreflag NOT EQUAL TO 0 

GO TO ¢c100-initerexit, 
PERFORM c500e°endsetup THRU 

c500"endsetup-exit, 


c100-initewexit, 


#* 


EXIT, 


*RETURN TO alO0Oestart 


* 


c200-opendb. 
CALL "DBOPEN*® USING 
db-name, 
password, 
model, 
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db-status, 
IF condeword NOT EGUAL TO 0 
CALL "DBEXPLAIN" USING dbestatus 
MOVE 1 TO errore-flag. 


c200"opendbvexit. 
EXIT, 
#* 
*#RETURN TO ci100einit 
# 
c300-openform,. 
CALL "VOPENFORMF" USING 
comareas 
formefileename. 


IF vstatus NOT EQUAL TO 0 
MOVE 2 TO erroreflag. 
c300-openformeexit. 


EXIT, 
* 
*#RETURN TO ci100*init 
* 
e400"openterm, 
CALL "VOPENTERM” USING 
comarea, 
termename, 


IF vstatus NOT EQUAL TO 0 
MOVE 3 TO error-flag. 
c400"opentermeexit, 
EXIT. 


+ 
*RETURN TO c100einit 
+ 
c500°endsetup, 
CALL INTRINSIC "ACTIVATE" USING 
. NON, 
\iN. 
IF cc NOT EQUAL TO 0 
MOVE 14 TO error-flage 
es500“endsetuprexit, 
EXIT. 
% 
*#RETURN TO ci100einit 
# 
diod0-close,. 
PERFORM d200°closedb THRU d200“closedb-exit. 
IF error-flag NOT EQUAL TO 0 
GO TO d100ecloserexit, 
PERFORM d300°closeform THRU d300-closeformeexit. 
IF error-flag NOT EQUAL TO 0 
GO TO d100-close-exit, 
PERFORM d400ecloseterm THRU d400eclosetermeexit, 
di00eclosewexit,. 
EXIT, 
+ 
*#RETURN TO alO00O-start 
# 
ad200"closedb. 
CALL "DRCLOSE®" USING 
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adbename, 
password, 
model, 
dbestatus, 
IF condeword NOT EQUAL TO 0 
MOVE 4 TO erroreflag, 
d200eclosedbeexit, 
EXIT... 
+ : 
*RETURN TO d100°close 
+ : 
d300-closeform, 
CALL “VCLOSEFORMF* USING 
comarea, 
IF vstatus NOT EQUAL TO 0 
MOVE § TO errore-flag, 
d300°closeform-exit, 
EXIT, 
% 
*RETURN TO di00"close 
* 
d400-closeterm, 
CALL "VCLOSETERM" USING 
comarea, 
TIF vstatus NOT EQUAL TO 0 
MOVE 6 TO erroreflag, 
d400-closetermeexit, 


EXIT, 
+ 
*RETURN TO dl00eclose 
‘“ . 


e100-main SECTION 20, 
CALL “VGETNEXTFORM" USING 
comarea, 
IF vstatus NOT EQUAL TO 0 
MOVE 8 TON erroreflag 
MOVE 1 TO exit-flag 
GO TO e100-maineexjt, 
CALL "VINITFORM® USING 
comarea, 
IF vstatus NOT EQUAL TO 0O 
move 17 TO errore-flag 
move 1 TO exiteflaq 
GO TO e100-main-eexit, 
CALL “VSHOWFORM" USING 
comarea, 
IF vstatus NOT EQUAL To 0 
MOVE 9 TO errore-flaq 
MOVE 1 TO exiteflag 
GO TO e100-maineexit, 
PERFORM £100eread THRU £100-"read-exit 
UNTIL exiteflag EQUAL TO 1, 
e100-mainw-exit, 
EXIT, 
+ 
*RETURN TO al00start 
# 
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f100-read, ; 
MOVE 0 TO record-was-found, 
CALL "VREADFIELDS” USING 
comareda. 
IF vstatus NOT EQUAL TO 0 
MOVE 10 TO erroreflag 
MOVE 1 TO exiteflag 
GO TO £100"read-exit. 
CALL "VGETBUFFER" USING 
comareéas 
orderenumber, 
ordenumelength, 
IF vstatus NOT EQUAL TO 0 
MOVE 18 TO erroreflag 
MOVE 1 TO exiteflag 
GO TO £100"readeexit, 
IF lastekey EQUAL TO 8 
MOVE 1 TO exiteflag 
GO TO £100°readwexit, 
MOVE orderenumber TO ordenum, 
ordenumedisplay. 
PERFORM £200-findord THRU £200-findord-exit, 
IF error=flag NOT EQUAL TO 0 
MOVE 1 TO exiteflag 
GO TO £100°-read-exit, 
IF recordewas-found EQUAL TO 1 
~ MOVE SPACES TO erroremessage 
PERFORM £400eprint THRU £400eprinteexit, 
£100-readeexit, 
EXIT, 
* 
#RETURN TO e100emain 
+ 
£200-findord, 
CALL "“DBGET* USING 
db-name, 
medataeset, 
model» 
dbestatus, 
listeofeitems, 
buffer, 
| ordere-number. 
IF condeword EGUAL TN 0 
MOVE 1 TO recordewas-found 
PERFORM £300egetord THRU £300-getord-exit 
ELSE 
IF condeword EQUAL TO 17 
MOVE “order not found " TO erroremessage 
PERFORM £€400eprint THRU £400eprinteexit 
ELSE 
MOVE 11 TO errore-flag. 
£200"findord-exit. 
EXIT. 
# 
*#RETURN TO £100-eread 
# 
£300-getord. 


MOVE buf-minuseord TO medsetebuffter, 
CALL "DBFIND®" USING 
adb-name, 
d-data-set, 
model, 
dbe-status, 
searcheitem, 
orderenumber, 
IF condeword NOT EQUAL TO 0 
MOVE 12 TO erroreflag 
GO TO £300egetorde-exit, 
CALL “DBGET" USING 
dbename, 
dedata-set, 
modeS, 
adbe-status, 
listrofeitems, 
buffers 
ord-num. 
IF condeword NOT EQUAL TO 0 
IF condeword EQUAL TO 17 
MOVE "order not found " TO erroremessage 
PERFORM £400eprint THRU £400-printeexit 
GO TO £300-getordeexit 
ELSE 
MOVE 12 TO erroreflag 
GO TO £300°getord-exit, 
MOVE bufeminuseord TO dedsetebuffer, 
£300-getord-exit, 
EXIT, 
* 
*RETURN TO £200-findord 
* 
£400°-print. 
IF recordewasefound EQUAL TO 1 
AND 
erroreflag EQUAL TO 0 
CALL "“VPUTBUFFER* USING 
comareas 
formebuffer, 
bufelength 
IF vstatus NOT EQUAL TO 0 
MOVE 15 TO errore-flag 
MOVE 1 TO exiteflag 
ELSE 
NEXT SENTENCE 
ELSE 
MOVE SPACES TO medsetebuftfer, dedset=puftfer 
CALL “VPUTBUFFER®" USING 
comareéa, 
formebuffer, 
bufelenqth 
IF vstatus NOT EQUAL TO 0 
MOVE 15 TO erroreflag 
MOVE 1 TO exiteflag 
GO TO £400eprint-exit 
ELSE 
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CALL “VPUTWINDOW" USING 
comareades 
erroremessage, 
erremessageelength 
IF vstatus NOT EQUAL TO 0 
MOVE 16 TO erroreflag 
MOVE 1 TO exiteflag 
GO TO £400eprint-exit, 
CALL "VSHOWFORM" USING 
comarea, 
IF vstatus NOT EQUAL TO 0 
MOVE 1 TO exiteflag 
MOVE 9 TO erroreflag 
GO TO £400-printeexit, 
MOVE SPACES TO erroremessage, 
CALL “VPUTWINDOW" USING . . 
comarea, 
erroremessage, 
erremessageelength, 
IF vstatus NOT EQUAL TO 0 
MOVE 16 TO erroreflag 
MOVE 1 TO exite-flag, 
£400°printerexit, 
EXIT, 


$CONTROL SUBPROGRAM 
BEGIN 


CK HEE SREEEE EERE H EEE EERE EER EERE E RHEE EESHEEREEEEEEEE EEE EY 
<< 


<< STARTSETUP picks up a terminal logical device number >> 
<< from the CREATE Cor RUN) PARM issued by demo2dad. It >> 
<< converts the ldev into an ASCII string a8 part of a FILE >> 
<< command,. It then issues the FILE command with tne MPE >> 
<< COMMAND intrinsic, (COBOL II cannot call the COMMAND >> 
<< intrinsic, which is why STARTSETUP must be in SPL.) >> 
<< >> 
<< Error returns >> 
<< 20 NO ERROR >> 
<< 20 COMMAND intrinsic error number. >> 
<< >> 
<< CAUTIONS Xf this procedure is not called from the main >> 
<< program, demo2sons the wrong PARM value will be >> 
<< returned. aa 
<< >> 


a ll ia cli alll aad ad 


PROCEDURE STARTSETUP(error)? 
INTEGER error; 


BEGIN 


LOGICAL ARRAY w°image(O:it); 
BYTE ARRAY image(#) = w°imagey 
INTEGER 

deltag = Q, 

P&érms 

cnderr, 

Gumy 3 
INTEGER POINTER p & S03 


INTRINSIC ASCII, 
COMMAND} 


MOVE w°image s3 "FILE A264X3DEVs "y 
image(23) s= $153 
PUSH(Q)3 
parm s= p(-deltaq=4)3 
DEL? 
ASCII Cparm,10-,image(i5)); 
COMMAND (Cimage,cmderr,dumy)3 
error :a3 IF <> THEN CMDERR 
ELSE 03 
ENG? 


end, 
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SCONTROL LIST, SUBPROGRAM, DYNAMIC 
IDENTIFICATION DIVISION, 
PROGRAM*=ID, ERRORSUB, 
AUTHOR, ct3000,. 
ENVIRONMENT DIVISION, 
DATA DIVISION, 
LINKAGE SECTION, 
Oi erroreflag PIC S$9(04) COMP, 
PROCEDURE DIVISION . ‘ 
USING erroreflag, 
aid0estart, 
GO TO ei, e2, e@e3, e4, e5, e6, e7, @8, 09, O10, eli, @12, 
e13, e14, e15, e16, ely, e18 
DEPENDING ON erroreflag,. 
el, 
DISPLAY “dbopen failure”, 
GO TO endeofesub, 
e26 
DISPLAY “vopenformf failure", 
GO TO endeofesub, 
e3, 
DISPLAY “vopentermf failure", 
GO TO endeofesub, 
e4, 
DISPLAY "dbclose failure", 
GO TO endeofesub, 
es, | 
DISPLAY "vcloseformf failure", 
GO TO end-of-sub,. 
e6. 
DISPLAY "vcloseterm failure", 
Go To end-of-sub,. . 
e7. . 
DISPLAY “vopenformf failure", 
GO TO endeofeSub. 
es, 
DISPLAY “vgetnextform failure", 
GO TO endeofesub, 
e9, 
DISPLAY "vshowform failure", 
GO TO ende-ofesub. 
eid, 
DISPLAY “vreadfields failure", 
GO TO endeofesub, 
eii, 
DISPLAY “dbfind failure", 
GO TO endeofesub, 
ei2. 
DISPLAY “dbget failure”, 
GO TO end-of-sub. 
ei3, 
DISPLAY “startsetup failure", 
Go TO end-of-sub, 
ei4, 
DISPLAY "endsetup failure", 
Go TO endeofe-sub,. 


A-29 


e1i5, 


DISPLAY “vputbuffer failure". 
GO TO endeofesub. 

e16, 
DISPLAY “vputwindow failure". 
Go TO endeofesub. 


Te 
DISPLAY “vinitform failure", 
GO TO endeofesub, 


eis, 
DISPLAY "vaetbuffer failure", 


GO TO endeof-sub. 
end-ofesub, 

MOVE O TO error#flag. 

GOBACK, 
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PROGRAM FILE PDADP,DEMO.DESIGN 


ALOOSTARTO0’ 
NAME 
ALOO0STARTOO® 
CREATE 
ACTIVATE 
GETPROCINFO 
GETPROCID 
C*°DISPLAY 
C°DISPLAY’FIN 
C°DISPLAY’INIT 
C°DISPLAY’°L 
ACCEPT ’FREE°C 
TERMINATE’ 
C°’ACCEPT 
QUIT 
demo2dad 
DEBUG 
COBOLTRAP | 
SEGMENT LENGTH 


PRIMARY DB 
SECONDARY DB 
TOTAL DB 

ELAPSED TIME 


003 


0 
STT CODE ENTRY SEG 
1 0 0 
3 ? 
4 ? 
5 ? 
6 ? 
7 ? 
10 ? 
11 ? 
12 ? 
13 ? 
14 2 
15 ? 
16 ? 
2 1323 1323 
17 2 
20 ? 
1470 


0 INITIAL STACK 


310 INITIAL DL 
310 MAXIMUM DATA 
00303.,164 
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2000 


CAPABILITY , i 

0 TOTAL CODE 1470 
4 TOTAL RECORDS 14 
00:00,538 


PROCESSOR TIME 


PROGRAM FILE PDEMO2P,DEMO DESIGN 


SEG’ 0 
NAME STT CODE ENTRY SEG 
STARTSETUP 1 0 0 
ASCII 2 ? 
COMMAND 3 ? 
SEGMENT LENGTH 70 

ERRORSUB t : 
NAME STT CODE ENTRY SEG 
ERRORSUB | 0 0 
C°DISPLAY’FIN 4 ? 
C°DISPLAY°INIT 5 te 
C°DISPLAY’L 6 ? 
QUIT 7 ? 
ERRORSUB’S 2 0 1071 
ERRORSUB’ 3 1076 1076 
SEGMENT LENGTH 1314 

E100MAIN20° 2 
NAME STT CODE ENTRY SEG 
E1L00MAIN20° 1 0 0 
VGETNEXTFORM 3 ? 
VINITFORM 4 ? 
VSHOWFORM 5 ? 
VREADFIELDS 6 ? 
VGETBUFFER 7 ? 
DBGET 10 ? 
DBFIND 11 ? 
VPUTBUFFER 12 ? 
VPUTWINDOW 13 ? 
QUIT - 44 ? 
demo2son 2 767 7167 
DEBUG 15 ? 
COBOLTRAP 16 ? 
A10OSTART10° 17 4 
C1LOOINIT1I5° 20 3 
SEGMENT LENGTH 1224 

C100INITI5” 3 
NAME STT CODE ENTRY SEG 
CLOOINIT1I5° 1 0 0 
STARTSETUP 2 0 
DBOPEN 3 ? 
DBEXPLAIN 4 ? 
VOPENFORMF 5 ? 
VOPENTERM 6 ? 
ACTIVATE 7 ? 
DBCLOSE 10 ? 
VCLOSEFORMF 11 ? 
VCLOSETERM 12 ? 
SEGMENT LENGTH 350 
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ALO0START10° 4 


NAME STT CODE ENTRY SEG 

ALOOSTART10° 1 0 0 

ERRORSUB 2 i 

TERMINATE” 3 2 

SEGMENT LENGTH 60 
PRIMARY DB 0 INITIAL STACK 2000 CAPABILITY 1 
SECONDARY DB 553 INITIAL DL 0 TOTAL CODE 3260 
TOTAL DB 553 © MAXIMUM DATA 25370 TOTAL RECORDS 27 
‘ELAPSED TIME 00:00:02,677 PROCESSOR TIME 00:01,182 
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4, Forms File Listing 


ORDFORM! 
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Ore r errr err Te TTT TTS Tee TST TTT TTT TST STIPE TT TSP ee DD DDD steed 


FORMSPEC Version A.01.01 
TUE, OCT 14, 1980, 4328 PM 


* 
# 
* 
* 
ORDFORM1 .DEMO.DESIGN * 
% 
* 


orreer eT TE TOTO TS TTT OTT TITTIES TTT TTT SST er EST TTT hl 


rms File Status 
Modified: TUE, OCT 14, 1980, 10:29 AM 


Compiled: TUE, OCT 14, 1980, 10:29 AM 
Requires 1049 + 60 = 1109 words (add 500 for KSAMless fast forms files oF 
add 1300 for KSAMless slow forms file) 


ad Forms 

fault Display Enhancements: HI 
ror Enhancement: IU . 
ndow Display Line: 24 

ndow Enhancement: HI 


ERE ARE NO SAVE FIELDS IN THIS FORMS FILE, 
ere are i forms in this forms files 


Form Num Flelds Num Lines Next Form 
FORM1 14 22 SHEAD 


FORMSPEC VERSION A,01,.01 
FORMS FILE? ORDFORM1.DEMO,DESIGN 


Forms FORM! 
Repeat Option: 


N 


Next Form Options: Cc 
Next Forms $HEAD . 


this 
SESE HEE EAE UE aE ee 


The 


{s the only form for the demo 
RHEE BEE BUH BES EH PHU EHHEEH BHDHEE 


Entar an NerAar Niu 


att ww & WH OS wh WW & ow 


mhaw 
stat we & 


TUE, 


OCT 14, 


order number must be eight digits long 


ORDER NUMBER (lardnyn.) 


Data Related to Order Number [fardnund.] 


Customer Name 
Customer Address 


Press ENTER key 


Phone (custphone..) 
Purchase Order (purchord) 


Quantity (gqty} 
Part number [partnus.]) 


Description 


Unit Measure (un) 


Price (nrica..) 


#ue Press £8 to EXIT ### 


1980, 


432 
PA 


BERGE HEME SHEE HEHEHE HEHEHE RHEE E HH HOHE HEHE 


Fields ordnum 


Nums 1 Lens 8 


Init Values 


Names: ORDNUM 


### PROCESSING SPECIFICATIONS ##+# 
MINLEN 8 "Order number must be 8 digits" 


Field: ordnumd 
Nums 2 Len? 
Init Values 


Fields: custname 
Nums 3 Len: 
Init Values 


Fields: custstreet 
Nums 4 Len: 
Init Values 


Field: custcity 
Nums 5 Lens: 


Init Values 


20 


20 


16 


Names ORDNUMD 


Names: CUSTNAME 


Names CUSTSTREET, 


Names CUSTCITY 
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Enh 


Enn? 


Enne 


Enns 


Enhs 


HT 


HI 


HT 


FTypes 


FTypes 


FTyrves 


FTypes 


FTypes 


OTypes 


DTypes 


DType: 


C 


Cc 


C 


FORMSPEC VERSION A,01,01 TUE, OCT 14, 1980, 4328 PM 


FORMS FILE: ORDFORMi1 ,DEMO,DESIGN PAGE 3 
Field: st . 
Nums 6 Lens 2 Names ST Enh: HI FType: D DTypes: CHAR 


Init Values 


Field: cuszip 
Nums 7 Lens 6 Name: CUSZIP Enh: HI FType: D DTypes: CHAR 
Init Values 


Fields custphone 
Num: 8 Lens: 10 Names: CUSTPHONE Enh: HI FType: D0 ODTypes: CHAR 


Init Values 


Fields purchord 
Num: 9 Len: 8 Names: PURCHORD Enh: HI FType: D DTypes: CHAR 


Init Values 


Field: qty : 
Nums 10 #£Lens 4 Names: QTY | Enhs HI FType: D DTypes: CHAR 


Init Values 


Field: partnum , , 
Nums it Lens 8 Names: PARTNUM Enns HI. FTypes D DOTypes CHAR 


Init Values 


Fields: dese 
Num: %2 Lens 30 Names DESC Enhs HI FTypes D DTypes CHAR 


Init Values 


Field: um 
Nums 13 Len: 2 Names UM Enns HI FType: D OTypes: CHAR 


Init Values 


Fields price 
Num: 14 Lens 6 Names: PRICE Enns HI FTypes D DTypes: CHAR 


Init Values 
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5, IMAGE Schema Listing 


ORDRET 
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OWOTA UM & WD & 


Scontrol list-,errorss2,blockmax=512 


begin data base ordret} 


passwords; 
1 clerk; 
63 MGR} 
items? 
custename, x20 
Custestreet, x20 
custecity, x16 
custestate, x2 
custezip, x6 
custephone, x10 
desc, x30 
ordenum, x8 
partenum, x8 
price, 26 
purcheord, x8 
quantity, 24 
untemeass x2 
sets . 
names: ordemstr,manual(1/63)3 
entry’ ordenum(1), 
cust-name, 
custestreet, 
custe*city, 
cust-state, 
custezipes 
cust°phone, 
purch-ord; 
capacity:201; 
names itemedet,detail(!/63)3 
entry: ordenum(ordemstr), 
quantity, 
partenum,s 
desc, 
untemeas, 
prices 
capacity:501; 
end e 
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(1/63); 
(1/63)3 
(1/63)3 
€1/63)3 
(1/63)3 
(1/63); 
(1/63)) 
(1/63)3 
(1/63); 
(1/63)3 
€1/63)3 
(1/63); 
(1/63); 


APPENDIX B 


Answers to Worksessions 


Answers to WorksesSion IIe1 (architecture overview) 


1, 
2. 
36 


4. 


True. The HP 3000 is a Stack machine. 
True, Code and data must be separate in a stack machine, 


Separate code and data means that the code can be shared; 
only the data need be private. Shared code saves memory. 


Virtual memory is on discs main memory 1s Semiconductor 
memory, Code cannot be executed in virtual memory; it must 
be in main memory, 


False. Not ALL the code and data need be in main memory for 
the program to execute; the data stack and at least one code 
segment are required for execution, 


Answers to WorksesSion II1#2 


1, 


26 


36 


4. 


Se 


Two processes. A process is a unique execution of a program 
at a particular time, 


Two processes. A process is a unique execution of a program 
by a particular user, 


False. Shared code is never modified, This characteristic {s 
what allows code to be shared by many processes. It also 
means that the code can be reeentrant. 


True, The main reason that data is not shared is that it must 
be totally private and able to be modified by each process 
that uses the data, As a result, each execution of the same 
Program may have widely different data, 


The two required ingredients of an executing process are the 
data stack and at least one code segmenc. Additional 
ingredients may be more code segments and extra data segments, 


Answers to Worksession II-3 (code segments) 


i. When code segments are variable in lengths the code does not 
have arbitrary boundaries. This means new code can be added 
without crossing "page" boundaries, 


2. a) YeS. The maXimuUm Segment size is 16K words, 
b) Yes, The maximum number of segments per program is 63, 


3- Nothing. Transfers between segments are managed completely 
by the Operating system. (We will see later how programmers 
can reduce the number of such transfers,) 


4, No. An executing segment can be anywhere in available main 
memory (memory not dedicated to permanent MPE code), The 
exact location is kept track of by the system through the CPU 
registers: PB, B, and PL, 


5. The user can control: 
ae the size of code segments, 
be how many code segments in his program, and 
Ce what code is in each segment. 


Answers to Worksession IIe4 (code segment design) 


Thig worksession differs from the previous ones in that there are 


AO 


simple cOrrect answers. The following answers are guidelines 


eny reasonable facsimile should be acceptable, 


Ze 


3 


A working set is the smallest set of segments that must be in 
main memory for a program to work efficiently. A working set 
{s dynamic, changing ag the needs of the program change over 
the course of its execution, 


On the HP 3000, the longer code remains in the same segment 
(maintains good code locality). the less chance there is that 
new code segments must be brought in from virtual memory, 
This helps performance since it reduces the need for 
expensive disc access, 


@) Stay in the same segment for as long as possible (good 
code locality). . 


b) Keep segment size as small as possible without causing 
excessive transfers between segments, 


¢) Try to make code segments approximately the same size 
since this makes it easier to find space for the code in 
main memory. | 


qd) Put infrequently used code in one (or more) separate 
segments, 


@) Make sure your code is written so that it can be 
resegmented if necessary © think about segmenting from the 
start, 


4. Segment the illustrated program units, 


There is no-one correct solution. However,» there are some 
obvious considerations, The initialization and termination 
routines should probably all be in one segment since they are 
short, execute quickly, and each only executes once per 
program, The two procedure routines should probably be in a 
segment together since they work together, The error handling 
routine should be in a separate segment since it is large and 
may never be needed, 


Ask class for other possibilities, Have them give reasons for 
their choices, 


Answers to Worksession IIe5 (data stack) 


1. 


26 


False, The data stack is absolutely private, 


DL eseceevevcce bottom limit (Data Limit) 
{ | 


DB eeraceree start of global data (Data Base) 
{ ! 
! { 
t | 

Q sweeeccuce start of local data (dynamic base) 

\ | 
! | 
{ { 

S eeseenene topeofestack 


ZS ceemecenaeenecen | top limit (stack limit) 


Mark the DLeDB and the QZ areas as those whose size can be 
directly managed by the user, 


a) The user can set stack limits with MAXDATA or STACK, 
This must be done when the program is prepared or runs 
it cannot be done dynamically during execution, 


b) The user can change the size of the DL°DB area with the 
DLSIZE intrinsic, or the size of the Q9Z area with ZSIZE, 
Usually these intrinsics are used to reduce the expandable 
areas of the stack after they have expanded for a 
particular oneetime purpose, 


¢) The user can reduce the global (DB=Q) area by using this 
area only for truly global data, For instance, making a 
COBOL subprogram "DYNAMIC® {insures that its data is in 
tne loca] (and directly manageable) area of the stack 
rather than the global area, Reserve the global area for 
data that is shared by more than one procedure or that 
must be kept between procedure calls to the same 
procedure, 


a) Yes. This is the typical situation where you would call 
ZSIZE to shrink the stack, You would call] ZSIZE after "X" 
(the procedure that expanded the stack) has exited; 
otherwise, the stack will remain the size to which it was 
expanded by "X", Note that before you call procedure "X*, 
you should execute an SPL procedure to determine the normal 
location of Z so it ean be returned to that location with 
ZSIZE, 


6. 


b) STACK is the best choice since it allocates main memory 

at once, Using MAXDATA would cause main memory to be 
allocated in increments of 1K words as it was needed, causing 
extra disc I/0 at each increment, There is no real drawback 
to this choice since the space in main memory {is needed at 
once, STACK is only wasteful if the space in main memory 

fs not used during a large part of the process execution, 


cc) MAXDATA is the only choice here; STACK does not 
increase the size of the DL to DB part of the stack, 
Since it is the only choice, there is no real drawback, 
However, using MAXDATA is always costly in dise I/0, 


If error messages are included in your program as data, 
they are placed in the global area of the stack, thereby 
making your stack permanently very large (the global area 
cannot be made smaller programmatically). If- on the 
other hand, error messages are placed in a separate code 
segment or in a subprogram that uses the dynamic area of 
the stack, they do not increase the global area of the 
stack, 


Answers to Worksession II*6 (extra data segments) 


1. At least two of the following differences between a data 
stack and an extra data segment should be mentioned: 


2. 


1. 


2 


36 


The stack must be private to a process, extra data 
segments may be shared by more than one process in the 
same job or session, 


The stack is created and managed by the system, extra 
data segments are created and managed by user programs, 


The stack is structured, an extra data segment is linear 
and unstructured, 


Each of the three listed situations is one in which extra 


dat 
oth 


a) 


b) 


ec) 


Of 


a segments Can provide a solution, Note that there may be 
er solutions. For instance, 


AN array too large for the data stack could be stored in a 
file; but the transfers between the stack and an extra 
data segment are usually less time consuming than opening 
and accessing a file, 


Data local to a procedure normally is stored in the local 
Qerelative area of the stack where it ceases to be 
available when the procedure exits, You can specify that 
data for procedures be stored in the global area of the 
stack, but this means a permanently large stack if there 
is a lot of such data, 


A MAIL facility allows one word at a time to be passed 
between processes, Queuing files are a special type of 
file (only available with MPE IV) that provide an 
excellent means to pass data and messages between 
processes in the same process tree, But, extra data 
segments still provide the only solution for installations 
that do not have MPE IV and where more than one word must 
be passed at a time, 


course, extra data segments cannot take the place of files 


for most data; only files provide permanent Storage for data, 


Answers to Worksession II-7 (using libraries) 


1, 


2. 


36 


4, 


A) A routine that performs a mathematical function could be 
in either an RL or an SL, In this case, because it 158 
large and because it is referenced by more than one 
program, put it in an SL, A large routine takes up too 
much space in an RL? and a routine that is shared by many 
programs 
should be in an SL to reduce the number of copies of the 
routine, | 


If the routine is referenced by a large number of 
programs, consider putting it in a system SL = system SLs 
are easier to reference since no special request is 
needed, 


B) These routines are very good candidates for RL routines 
for several reasons: They are small, taking up little room 
in the program file, They are essentially private to the 
program that calls them since they deal with that 
program’s stack, 


C) The routine that reformats main program data must be in an 
RL because all data from the main program (outer block) is 
in the global data area of the stack, SL routines are 
linked to the program after the global stack is 
established and, thus, cannot modify global data, 


If your program has 62 code segments already, using any RLs 
will bring your total number of segments to the limit of 63, 
If you are willing to operate with 63 code segments, it 
doesn’t matter how many RLs you add since all RLs are placed 
in one segment. You should, of course, consider how large 
your RL segment is = follow the general code segment tutes 
for this segment too. 


If there are 190 SLS, you Nave room for only 1 more since the 
limit is 191. In this case, you will probably want to avoid 
any new SLs until you have cleaned up the segmented library, 
purging unused SLS, etc, 


If your program has a lot of RLs, adding more may make the RL 
segment excessively large. Consider how often the RLs are 
needed before adding more and thereby producing a code 
segment tnat is too large to manage easily, 


If many programs will share these libraries, then you are 
better off using SLs rather than RLs, This is because SLs 
are sharable code segments, whereas RLS must be present as 
separate copies in each program file that uses them, 
Furthermore, if any RL is changed, every program that 
references them must be re-prepared = possibly a horrendous 


task, 


6. If the routine changes a lot, put it in an SL. If it is in an 
RL, every program that uses it must be reeprepared to get the 
latest version of the RL. This can be a nuisance, 
particularly if the routine is shared by many programs, 


Answers to Worksession II-8 (multiprogramming) 


1, 


2 


3. 


a) 


b) 


a) 


b) 


¢) 


d) 


No, Program execution is never simultaneous on an HP 
3000. 


No, For the same reaSon aS a). It does not matter that 


the program {s different, No two processes run at 
the same time on an HP 3000, ? 


Put this program in the E queve. It should have the 
lowest possible priority so it does not interfere with 
oneline transactions, 


Put this program in the C queue, It is the type of 
oneline program to favor for execution, 


Put this program in the D queve. It is the type of batch 
program that should be more favored than the overnight 
printing program a), but that should not interfere with 
oneline programs such as b), 


Put this program in the C queue where it can contend for 
CPU time with program b). Of the two, the program that 
executes the longest without requiring dise I/0 will 
probably be favored by the dispatcher, 


Keeping the data stack small and segmenting code 
intelligently are the two things a programmer can do to 
help MPE find space in main memory for your process, 


Suggested answers to worksession IIIei (transaction processing) 


1. 


Define a "transaction", 


ce] 


fe) 


A transaction is the smallest complete unit of work 
performed by a computer and defined by the user, 


A transaction is a series of logical steps that accept 
input, process data, and generate output in order to 
achieve an identifiable result for the user, 


Give at least one advantage of an interactive transaction 
processing system, 


te) 


° 


The person who uses the data is the one who interacts 
directly with the computer, ‘ 


It eliminates the need for a central data processing group 
to enter and retrieve data from the computer, 


It provides fast response directly to the people who need 
the data, 


The users see the system as their own = are less apt to 
resist it. 


OR describe one disadvantage of a batch system: 


be) 


The computer system is removed (physically and emotionally) 
from the people who enter data into it or depend on its 
output, 


Response tends to be slower = takes longer to get to the 
people who need it. 


Data processing becomes something performed in a mysterious 
place, the computer room, rather than at terminals in the 
regular work areas, 


Answers to Worksession IIIe2 (accounting structure) 


i. 


2. 


36 


4. 


a) Yes, But Mary must be logged on to group COLLECT of 
account ACCTG since access to INVOICES is restricted to 
group users, Mary can log on as follows: 


sHELLO MARY.ACCTG 


She does not need to specify the group, since COLLECT {is 
her home group, We Know this since MARY is group 


~_ _ @ ow2 _ 


the home group of the librarian, 


b) MARY need only be logged=on as shown above in order to 
modify the file INVOICES. As group lifibrarian, she has 
write access to INVOICES which allows her to modify the 
file, (Note that she cannot modify CUSTOMER since write 
access to that file is restricted to its creator.) 


a) The CUSTOMER file in the COLLECT group of account ACCTG 
@llows read access to ANY user, This means any user in 
the system, Therefore, a user in account SALES can access 
the file CUSTOMER by its full name, including the group 
and account to which the file belongs and the lockword 
assigned to the fille, To illustrate, the file name is: 


CUSTOMER COLLECT ,ACCTG/LOCKWORD 


A user in the group COLLECT of account ACCTG would only 
have to give the name CUSTOMER and the lockword, not the 
group and accout names, 


b) The user in SALES cannot modify the file CUSTOMER, Write 
access to CUSTOMER is restricted to a single user: the 
file creator, BILL who {is a member of COLLECT in ACCTG, 
No other user in that or any other group can modify the 
file CUSTOMER, 


Access to INVOICES is restricted to group users, Therefore, 
a user in SALES cannot access INVOICES unless he logs on to 
group COLLECT, account ACCTG, or the file creator (JOHN) 
specifically releases the file for other users to access, or 
the account manager or file creator changes the access 
restrictions on the flle, 


Nos, a user in group OENTRY cannot run the program CUSTINV, 

If execution access is limited to group users, this means 
that only users in the group to which the program file 
belongs can access it, So, in order to run CUSTINV, the user 
in OENTRY must be able to log on to the group COLLECT with an 
acceptable user name and all passwords, 
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Suggested answers to worksession III-3 (options) 


1. 


2a. 


2b. 


The “standard™ MPE option has the following advantages: 


o It {8S Simple to develop and test. 
o It requires no special capabilities, 
o Local terminal logie is straightforward, 


This option has the following disadvantages: 

o The end user must log one run the program, and log off, 

o The overhead for logging on and off is high, 

o Interaction between terminals (global terminal logic) 
-is noneexistent, 


The three nonestandard options we discussed are? 


1. One process per terminal with process Nandling. 

2. Specialized single program for multiple applications, 

3, Central terminal control with "sons® handling particular 
applications, 


Each of these options has the following advantages and 
disadvantages: 


Tne advantages of process handlings one process per terminal? 

o User is isolated from MPE commands » does not log on or off 
Or run program, | 

© Data stack and code segments tend to be small, 

© Overhead from logging on and off greatly reduced, 


The disadvantages are? 


© Special capability required (Process Handling). 

© Program testing more complex (though development may be 
easier), 

o Extra overhead for process creation, 

© Only COBOL II,» FORTRAN, SPL can use special capability. 


Advantages of Specialized Single Program: 

o Simple communication between tasks, 

© Data stack for all applications is shared, 
o Fast terminal handling with NOWAIT I/O, 


Disadvantages are: 

© Task handling is complex, 

o Data stack can be very large. 

o Program can be very large, 

© NOWAIT 1/0 requires privileged mode, 
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Advantages of Central Terminal Control: 

o Central contro] over a1] transactions, 

© Individual processes make stack and code segments 
easy to manage, 

oO Fast multieterminal handling with NOWAIT I/0, 


Disadvantages are: 
o More complicated programming required, 

- Communication between processes 

- Need SPL routines (unless coding in FORTRAN or COBOL ITI), 
© NOWAIT I/O requires privileged mode, 
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Answers to worksession IIIe4 (languages): 


i. 


26 


36 


True. The HP 3000 is a wordeoriented machine, 


False, RPG can be segmented only into fixedelength segments 


a) 


b) 


c) 


Of 1, 2, 3, or 4K (default is 4K), APL cannot be 
segmented at all. For other languages, however, the 
answer would be true, — 


COBOL or RPG are best for generating formatted reports, 
In both languages, formatted output is simple to code, 
uses no extra overhead, 


SPL is the only language that can call machine 
instructions directly; both FORTRAN and COBOL ae (but note 
COBOL °68) can call the MPE Intrinsics, 


BASIC is particularly well suited to manipulating 
character strings, 


Answers to worksesSion III-5 (data entry) 


1. 


26 


a) Character mode is preferable for this task. A small 
amount of data is transmitted at a time (YES or NO). The 
program responds immediately to the entered data; it does not 
need to process a block of data, 


b) Block mode is preferable for this task. The program needs 
to process an entire block of data before returning to the 
user for more data, Transferring all the data at once cuts 
down on the number of terminal/computer transfers} the user 
can correct data on the screen before it is transferred which 
further reduces terminal I/O. 


One terminal in each group is unable to support either biock 


mode transfers or V/3000 (which requires biock mode), These 
terminals ares: the 2621, the 2640B, and the 3077. 
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Suggested answers to worksession IIIe6 (V/3000 design) 


1. 


20 


36 


It is better forms design to have all forms approximately the 
same size, The internal record where each form is stored is 
made large enough to hold the largest form, 


You can improve the design by breaking the 18 line form into 
two formS, one with the header information and a second for 
the detail information, You may freeze the header form on 
the screen and append the second form to it so that the two 
forms appear as one to the end user, 


FORMSPEC edits are kept in the forms file which uses stack 
space to store the form in memory. Therefore, if your 
application is short of memory, putting all edits in the code 
saves space, This is particularly true if the edits are long 
and/or complex. 


Note that dise 1/0 is not really a factor in this decision; 
it should be about the same unless the large stack causes 
memory contention problems that result in swapping, If errors 
are found, messages must be returned to the operator whether 
the edits are performed in FORMSPEC or in the program, 


If all edits are in a FORMSPEC forms file, they should be 
kept as short and simple as possible, The less characters 
used, the shorter the stack. It’s as simple as that, The 
system constants (SEMPTY, $DATE, etc) provided to help the 
designer are also good to Keep the edits short, 


The advantages of FORMSPEC calculations are that they avoid 
Operator error, reduce the need for error checking, produce 
more accurate data, and save thinking time on the part of the. 
operator. 


The disadvantages are that the calculations add to the size 
of the forms file, give the operator less control over the 
data, make correcting errors in entered data more 
complicated, 


Suggested answers to worksession IIJ-7 (V/3000 structure) 


1. 


26 


36 


The code records and the data buffers for V/3000 can use up 
to 6K words of the DL©DB area of the stack by themselves, 
Add to that the regular DB positive area of the stack with 
all the data for the program that uses V/3000 and it becomes 
clear why V/3000 needs to have extra stack space allocated 
with the: MEAD ATA parameter, 


Tests showed that any program running V/3000 should have a 
stack capacity of at least 6K toe hold the information needed 
to process each form, (Remember, that the smaller the form, 
the fewer editing specifications, the less stack space is 
needed. Buts even with care in form design, V/3000 needs a 


minimum stack capacity of 6K,) 


Only MAXDATA provides extra stack space that includes the DL 
to DB area used for the comarea extension, The STACK 
Parameter only increases the stack between DB and Z; it does 
not do anything for the DL@DB area needed by the V/3000 code 
records and buffers, 


a) Yes 
b) Yes 
c) Yes 
d) Yes 
e) Yes 
f) Yes 
g) Yes 


Situations a) through g) increase the size of the form code 
record associated with each form, Note that everything 
associated with a form adds to the code record size, not 
fJust the data fields and their edits, 


The length of a field and the number of fields primarily 
affect the two V/3000 buffers in the DL-DB area, But, 
@lso increase the code record size if only because each 
each field has a name and number and is usually enhanced, 
In any Case, the more fields and the longer each field, 
the more stack is used, 


Repeating forms do not have to be brought from dise, A 
repeating form is simply cleared of previously entered data 
or "refreshed", Unless it is a repeating form, or is the 
only form in the fille (repeating by default), each new form 
must be brought from dise into the user stack, 


Answers to worksession III°8 (V/3000 data entry) 


26 


36 


ENTRY cannot be used to take data directly from a forms file 
and write it to an IMAGE data base, For this PUrpOsS@, you 


Must write your own program, However, you could use ENTRY 


to write the data from the forms file to an MPE "batch" file 
and then write a program that transferred this data to an 
IMAGE data base, The only advantage to this method would be 
if you did not want to update the data base oneline, (More 
on this in module IV), 


Yes, but only if you use REFSPEC and the REFORMAT program, 
This is exactly the type of situation that reformatting is 
good for. You Can use ENTRY to accept the data from the 
new form. It will write one record containing up to 10 
part numbers. You can use a REFSPEC file that breaks this 
record up into separate records that contain data in the 
form your existing application expects it. Then run 
REFORMAT to generate the records your application can 

use, 
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Suggested answers to worksession III-9 (V/3000 programming) 


i. 


You need only three simple V/3000 procedures to perform this 
function (VGETNEXTFORM, VINITFORM, VSHOWFORM) once you have 
opened the forms file and the terminal. 


Therefore, it is not only more efficient but quite easy to 
code using V/3000 procedures in your program instead of using 
ENTRY, ENTRY does far more than you need, It is a data 
entry program with lots of fancy features, so it would be 
Wastefuli to use it for this smali task. 

You probably would want to use FORMSPEC forms rather than 
designing them yourself since the enhancements are so easy to 
enter with V/3000 and are managed automatically, 


Notes the constant data is included in the forms file as 
initial data, 


This is a situation in which you really don’t need V/3000 at 
all. 


Unless the selected funetions themselves require forms and 
block»=mode transfers, you can save on general overhead and 
stack space by using simple character mode transfers in this 
situation, 


If, however, the rest of the application uses V/3000 forms 
controle you might as well make this initial function 
selection a menu type form, 


Now, if there are three or more functions to select, getting 
the user response requires more than one simple transfer in 

character mode, In this case, you might want to use a V/3000 
menu form, It could be not only simpler but more efficient, 


Answers to worksession IV-1 (structure) 


1. 


26 


Use structure in this ease, Structure favors inquiry which 
is the main task of this application. Since the data is 
modified in batch mode, oneline response is not slowed down 
by oneline updates. The choice of IMAGE or KSAM depends on 
other factors we will cover later. 


Use unstructured files. Adding data one-line requires less 
overheaad for MPE files than for either KSAM or IMAGE, Al8o, 
structure is primarily useful for fast oneline inquiries, not 
needed by this application, 


Note that the unstructured file could be either an MPE file 
or a standealone IMAGE data set, 


Answers to worksession IV*-2 (using MPE files) 


1. a) 2 buffers ~ this gives you the advantage of pre-reading 
without hogging memory to the disadvantage of 
other users, 


b) many records per block = for sequential access, the more 
records read at a time, the fewer disc reads 
are needed, This advantage overrides the 
extra memory space for a large buffer (unless 
memory is severely limited), 


2. a) 1 puffer - random reads gain nothing from multiple buffers, 
. and 0 buffers (NOBUF) means deblocking records, 


b) small blocksize = Since it is unlikely that the records 
you want are in the same block, there is no 
advantage to a large block, and a large block 
takes up memory space, 


Answers to Worksession IV-3 (shared files) 


1. a) Both programs must lock the file to make sure program "B" 


26 


3. 


gets accurate information, 


b) The following is a suggested solution (students may have 
many variations on this theme): 


Program "A" opens the file in the late afternoon, adds the 
day’s accumulation of new employees, and closes the fille. 
Program "B" opens the file in the morning, retrieves 
employee data oneline for most of the day, and then closes 
the file. At this point "A" ean open the file again to add 
new employees, Since the file is never shared, it need not 
be locked, Note that the update program "A" can be run as 
a batch job, 


Solution b) is the best strategy for tnis situation, Since 
program "B* needs the latest information, it must be able to 
access the file following the latest update. Solution a) is 
highly efficient for a single program, but it defeats the 
purpose of sharing the fille since locking around the update 
loop forces program "B" to wait until "A" has completed a 
series of updates before it can access the file, 


Tnis is an ideal situation for multieaccess, Since the two 


programs share the same buffer, the data is sure to be added 


in chronological order regardless of which process writes the 
next record, Also, because they write to the same buffer, 
locking is not needed for multi-eaccess, 


Answers to Worksession IV*4 (KSAM files) 


1, A) The employee name because it is used more frequently 


B) 


C) 


A) 


B) 


(weekly rather than monthly) and because it is used as a 
key for several functions (f£01] sequentia] access and 
approximate Key access), 


Access by primary Key is much faster if the data is loaded 
in that order, If the employee name is the primary key, 
then access by employee name is improved, but access by 
department code is not. Also, although writing reeords in 
primary Key sequence improves access by primary key, it 
makes adding new records slower, So, if this application 
depends on fast oneline updates, there may be a real 
disadvantage to adding records in key sequence, even though 
it speeds up retrieval, 


Approximate Key access (finding the first record with a key 
value greater than or equal to a specified value) is the 
type of access you would use to find the first employee 
whose last name starts with "K", For this purpose, you do 
not need to Know the record number. In facts KSAM is not 
really designed for direct access by record number; such 
access is only possible from FORTRAN or SPL programs, 


The number of records in the data file that are marked for 
deletion may increase the time it takes to access the file, 
The access is slowed mainly because of the chance of 
crossing block boundaries to find the next record, A large 
number of "deleted" records means that much of the data 
file contains useless data that still has to be moved to 
and from buffers, 


You can compress the data file by deleting the records 
marked for deletion, You do this by reloading the file 
using FCOPY,. If the number of "deleted" records is the 
reason access slowed down, this will improve your access 
time, 


Answers to worksession IVe5 (selecting keys) 


1 
2. 


36 


4. 


Se 


66 


Te 


You need two keys = Customer Name and Zip Code 


Yes » The custOmer name may change because of marriage 
or divorce, The zip code may change if the customer 
moves, 


Yes = Zip Code is a duplicate key. Since the entire customer 
name should be a key (in order to perform function e), 
the last name should not be defined as a duplicate key 
jtem,. 


RDUP - Whenever possible, add duplicate keys randomly, in 
ehronological order, 


b) © Adding a customer means adding a new entry to the key 
file and adding a new record to the data file, In 
general, adds take more disc I/O than retrievals and 
nonekey updates, Therefores a) should be a less time 
consuming process than b), 


ad) © Simple retrieval is the least time consuming process, 
Retrieving records with duplicate keys - function ¢c) 
takes more time than retrieval by unique keys. 


e) © Using the entire name as a Key makes the last name a 
partial key, With KSAM, it is easy to retrieve the 
first record with a partial key value and then read 
subsequent records in sorted order, Notes nested sorts 
are not otherwise available in KSAM, | 


First, ask yourself if you really need to retrieve items by 
Zip Code, If not, then you eliminate a duplicate key from 
your file, If you must perform this function, consider doing 
it in offehours or as a batch job so it does not interfere 
with one-line activity, Second, ask yourself if you can 
assign the customer a unique identifier that does not change 
in the same way a name can change, Using such an identifier 
as a key means you have a static key item rather than one 
that may change, Any other ideas? 


Answers to Worksession IV-6 (using KSAM files) 


i, 


2 


36 


A) The smaller block size increased the number of levels in 
the Betree for One of the Keys in the file. This meant that 
an extra dise access might be required each time a record in 
the file was accessed, The number of levels in a key is 
directly related to the number of dise transfers that may be 
needed to locate a particular value for that key, 


B) Increase the block size, load data into the file, and 
recheck the number of levels, If the key still needs 4 
levels, increase the block size again, Keep doing this until 
you achieve an optimum block size, 


Changing the number of buffers for a file is easier than 
changing block size because block size is a permanent file 
characteristic, This means that you must rebuild the file 
then reload the data whenever you change key block size, 
Changing the number of buffers can be done whenver the file 
is opened, either in the open procedure or with a :FILE 
command, 


A) Both programs must lock the file to insure that the 
logical record pointer is positioned to the correct record, 
The update procedures depend on pointer position as well as 
the procedures that read records in key sequence, 


B) The only way for both these programs to execute successe- 
fully without locking is to operate in an exclusive 
environment, In the situation as outlined, the one-line 
update program could execute all day, while the sequential 
reporting program could wait until evening (or arly eee 
to generate its report, 


Answers to worksession IV-7 (data base definition) 


Of courses there is no single correct solution, One solution is 
provided in the data base associated with the demonstration 
programs. Discuss this solution along with any other solutions 
the class comes up with, 


In response to question 6, suggest an automatic master containing 
the order date, 
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Answers to worksession IVe8 (using IMAGE) 


1, 


2. 


36 


4. 


Se 


6. 


7° 


e) 


f) 


¢) 


a) 


c) 


ec) 


c) 


In 


Exclusive modify access is the least capability that 
allows you to perform the specified tasks, (Note that it 
actually gives you more than you need since updates of 
nonekey items require less capability than modification 
which implies adding or deleting entries.) You could also 
open for concurrent update access or any of the other 
modify modes = but these require more capability, 


Modify, allow concurrent read is the least capability in 
this case. There is no reason to allow concurrent modify 
1f the other users plan only to read data, 


You could open with h) to have the system enforce 
locking. This is a valid choice to insure that the 
latest data is reads and you don’t mind the extra 
overhead, Note that you can lock in other modes <= mode 
h) only enforces it. 


Reads allow concurrent modify is the least capability for 
the other users that allows you to update, Again, if you 
want the system to enforce locking (and use a higher 
capability), they could open with the mode i), 


Calculated mode lets you go directly to an entry in 
a master data set using the value of the search item to 
locate the entry, 


Chained access in either forward or backward direction 
gives you all entries with the same search item value. 


You must access both a master and a detail, You locate 
the search item in the master data set and then use the 
chain information associated with this master to locate 
the head (or tail) of the chain in the detail data set, 
The entries you actually want are in the detail, 


Data entry level allows all the users to access the 

data set, If the users are not looking at exactly the 
same entry, the access can be concurrent, Note also that 
there are a number of users, and the transactions will 
probably be long (verification and update) = more reasons 
for choosing data entry locking, 


the case of data entry locking, it is essential that al] 


users lock the same item. Otherwise, IMAGE is forced to 
treat the lock as a data set lock to insure that users are 
not accessing the same entry, 


Answers to worksession IV-9 (IMAGE structure) 


i. 


4. 


Se 


Di is easier to modify because it has fewer paths (1 rather 
than 3). This seans there are fewer pointers to change in 
both the detail] and the masters when entries are added or 
deleted, 


M1 needs 15 words in addition to the data; 5 for the synonym 
chains and S for each of the two paths. 

M2 and M3 each need 10 words in addition to the data: $ for 
the synonym chain, and 5 for the path head, 

Di needs 4 words in addition to the data (1 path), D2 needs 

12 words in addition to the data (3 paths), 


a) Make the sort item the last item in each entry. 
b) Either make the sort item the entire name, or follow the 
sort item with other items for the first name and initial. 


By periodically reloading the data. This will place all 
entries in contiguous positions on dise in the order of the 
chained read, This technique will work for D2 only if you 
are reading along the chain formed by the primary key, 


You can expect a hashing algorithm that frequently produces 
the same location for a master entry. This, in turns results 
in a series of secondary addresses, and long synonym chains, 
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